home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / diag / memsz153.zip / MEMSIZE.C < prev    next >
C/C++ Source or Header  |  1992-12-28  |  103KB  |  3,241 lines
  1. /****************************************************************** MEMSIZE.C
  2.  *                                        *
  3.  * System Resources Monitor                            *
  4.  *                                        *
  5.  * Revision 1.53 (12/28/92)                            *
  6.  *                                        *
  7.  * (C) Copyright 1991-1992 by Richard W. Papo.                    *
  8.  *                                        *
  9.  * This is 'FreeWare'.    As such, it may be copied and distributed        *
  10.  * freely.  If you want to use part of it in your own program, please        *
  11.  * give credit where credit is due.  If you want to change the            *
  12.  * program, please refer the change request to me or send me the        *
  13.  * modified source code.  I can be reached at CompuServe 72607,3111.        *
  14.  *                                        *
  15.  ****************************************************************************/
  16.  
  17. #define INCL_DEV
  18. #define INCL_DOS
  19. #define INCL_ERRORS
  20. #define INCL_WIN
  21. #define INCL_GPI
  22. #include <os2.h>
  23.  
  24. #include <direct.h>
  25. #include <process.h>
  26. #include <stdarg.h>
  27. #include <stddef.h>
  28. #include <stdio.h>
  29. #include <stdlib.h>
  30. #include <string.h>
  31. #include <time.h>
  32.  
  33. #include <sys\types.h>
  34. #include <sys\stat.h>
  35.  
  36. #include "debug.h"
  37. #include "support.h"
  38. #include "about.h"
  39. #include "settimer.h"
  40.  
  41. #include "memsize.h"
  42.  
  43.  
  44. /****************************************************************************
  45.  *                                        *
  46.  *             Definitions & Declarations                *
  47.  *                                        *
  48.  ****************************************************************************/
  49.  
  50.   // Constants
  51.  
  52. #define PROGRAM_NAME        "MEMSIZE"
  53. #define CLASS_NAME        "MEMSIZE"
  54.  
  55. enum
  56. {
  57.   ITEM_CLOCK,
  58.   ITEM_MEMORYFREE,
  59.   ITEM_SWAPFILESIZE,
  60.   ITEM_SWAPDISKFREE,
  61.   ITEM_SPOOLFILESIZE,
  62.   ITEM_CPULOAD
  63. } ;
  64.  
  65. #define WM_REFRESH        WM_USER
  66.  
  67.  
  68.   // Data Types
  69.  
  70. typedef struct          // Data structure for item to be monitored.
  71. {
  72.   CHAR     Name [80] ;           // Text for item's profile name.
  73.   BOOL     Flag ;            // Flag: Show this item at this time?
  74.   CHAR     Label [80] ;           // Text to display on left part of line.
  75.   ULONG  Value ;           // Value to display on right part of line.
  76.   CHAR     MenuOption [80] ;     // Text to display in system menu.
  77.   USHORT MenuId ;           // ID for use in system menu.
  78.   ULONG  (*NewValue)           // Function to determine new value.
  79.     (PVOID,USHORT) ;
  80.   USHORT Parm ;            // Parameter to pass to NewValue function.
  81.   USHORT Divisor ;           // Amount to divide value by before display.
  82.   CHAR     Suffix ;           // Character to place after value.
  83. }
  84. ITEM, *PITEM ;
  85.  
  86. typedef struct          // Parameters saved to system.
  87. {
  88.   PITEM  Items ;        // Items to display.
  89.   int     ItemCount ;
  90.  
  91.   SWP     Position ;        // Window size & location.
  92.   BOOL     fPosition ;
  93.  
  94.   BOOL     HideControls ;     // User options.
  95.   USHORT TimerInterval ;
  96.  
  97.   CHAR     FontNameSize [80] ;    // Presentation Parameters
  98.   BOOL     fFontNameSize ;
  99.  
  100.   COLOR  BackColor ;
  101.   BOOL     fBackColor ;
  102.  
  103.   COLOR  TextColor ;
  104.   BOOL     fTextColor ;
  105. }
  106. PROFILE ;
  107.  
  108. typedef struct        // Data structure for window.
  109. {
  110.   HAB         hAB ;
  111.   HMODULE     Library ;
  112.  
  113.   ULONG      IdleCounter ;
  114.   ULONG      IdleCount ;
  115.   TID         IdleLoopTID ;
  116.   TID         MonitorLoopTID ;
  117.  
  118.   PROFILE     Profile ;
  119.  
  120.   HWND           hwndTitleBar ;
  121.   HWND           hwndSysMenu ;
  122.   HWND           hwndMinMax ;
  123.  
  124.   char           SwapPath [_MAX_PATH] ;
  125.   int         MinFree ;
  126.  
  127.   PCHAR      SpoolPath ;
  128.  
  129.   long         Width ;
  130.   long         Height ;
  131.  
  132.   COUNTRYINFO     CountryInfo ;
  133. }
  134. DATA, *PDATA ;
  135.  
  136. typedef struct
  137. {
  138.   HAB hAB ;
  139.   HMODULE Library ;
  140. }
  141. PARMS, *PPARMS ;
  142.  
  143. typedef struct
  144. {
  145.   PULONG Counter ;
  146. }
  147. IDLE_PARMS, *PIDLE_PARMS ;
  148.  
  149. typedef struct
  150. {
  151.   PULONG  Counter ;
  152.   PUSHORT Interval ;
  153.   HWND      Owner ;
  154. }
  155. MONITOR_PARMS, *PMONITOR_PARMS ;
  156.  
  157.  
  158.   // Function Prototypes
  159.  
  160. extern void main ( int argc, PCHAR argv[] ) ;
  161.  
  162. static MRESULT EXPENTRY MessageProcessor
  163. (
  164.   HWND hwnd,
  165.   USHORT msg,
  166.   MPARAM mp1,
  167.   MPARAM mp2
  168. ) ;
  169.  
  170. static METHODFUNCTION Create ;
  171. static METHODFUNCTION Destroy ;
  172. static METHODFUNCTION Size ;
  173. static METHODFUNCTION SaveApplication ;
  174. static METHODFUNCTION Paint ;
  175. static METHODFUNCTION Command ;
  176. static METHODFUNCTION ResetDefaults ;
  177. static METHODFUNCTION HideControlsCmd ;
  178. static METHODFUNCTION SetTimer ;
  179. static METHODFUNCTION About ;
  180. static METHODFUNCTION ButtonDown ;
  181. static METHODFUNCTION ButtonDblClick ;
  182. static METHODFUNCTION PresParamChanged ;
  183. static METHODFUNCTION SysColorChange ;
  184. static METHODFUNCTION QueryKeysHelp ;
  185. static METHODFUNCTION HelpError ;
  186. static METHODFUNCTION ExtHelpUndefined ;
  187. static METHODFUNCTION HelpSubitemNotFound ;
  188. static METHODFUNCTION Refresh ;
  189.  
  190. static void GetProfile ( HAB hAB, HMODULE Library, PROFILE *Profile ) ;
  191. static void PutProfile ( PROFILE *Profile ) ;
  192.  
  193. static PCHAR ScanSystemConfig ( PCHAR Keyword ) ;
  194.  
  195. static void ResizeWindow ( HWND hwnd, PROFILE *Profile ) ;
  196.  
  197. static void HideControls
  198. (
  199.   BOOL fHide,
  200.   HWND hwndFrame,
  201.   HWND hwndSysMenu,
  202.   HWND hwndTitleBar,
  203.   HWND hwndMinMax
  204. ) ;
  205.  
  206. static void UpdateWindow ( HWND hwnd, PDATA Data, BOOL All ) ;
  207.  
  208. static ULONG ComputeTime       ( PDATA Data, USHORT Dummy ) ;
  209. static ULONG ComputeFreeMemory ( PDATA Data, USHORT Dummy ) ;
  210. static ULONG ComputeSwapSize   ( PDATA Data, USHORT Dummy ) ;
  211. static ULONG ComputeSwapFree   ( PDATA Data, USHORT Dummy ) ;
  212. static ULONG ComputeSpoolSize  ( PDATA Data, USHORT Dummy ) ;
  213. static ULONG ComputeCpuLoad    ( PDATA Data, USHORT Dummy ) ;
  214. static ULONG ComputeDriveFree  ( PDATA Data, USHORT Drive ) ;
  215.  
  216. static void _far _cdecl IdleLoopThread ( PIDLE_PARMS Parms ) ;
  217. static void _far _cdecl MonitorLoopThread ( PMONITOR_PARMS Parms ) ;
  218.  
  219.  
  220. /****************************************************************************
  221.  *                                        *
  222.  *    Program Mainline                            *
  223.  *                                        *
  224.  ****************************************************************************/
  225.  
  226. extern void main ( int argc, PCHAR argv[] )
  227. {
  228.  /***************************************************************************
  229.   * Local Declarations                                *
  230.   ***************************************************************************/
  231.  
  232.   HELPINIT HelpInit =
  233.   {
  234.     sizeof ( HELPINIT ),
  235.     0L,
  236.     NULL,
  237.     MAKEP ( 0xFFFF, ID_MAIN ),
  238.     0,
  239.     0,
  240.     0,
  241.     0,
  242.     NULL,
  243.     CMIC_HIDE_PANEL_ID,
  244.     "MEMSIZE.HLP"
  245.   } ;
  246.  
  247.   CHAR Error [200] ;
  248.   FRAMECDATA fcdata ;
  249.   HAB hAB ;
  250.   CHAR HelpTitle [80] ;
  251.   HMQ hMQ ;
  252.   HWND hwndClient ;
  253.   HWND hwndFrame ;
  254.   HWND hwndHelp ;
  255.   HMODULE Library ;
  256.   PARMS Parms ;
  257.   QMSG qmsg ;
  258.   BOOL Reset ;
  259.   CHAR ResetCommand [40] ;
  260.   CHAR Title [80] ;
  261.  
  262.  /***************************************************************************
  263.   * Initialize for PM.    Abort if unable to do so.                *
  264.   ***************************************************************************/
  265.  
  266.   hAB = WinInitialize ( 0 ) ;
  267.   if ( hAB == NULL )
  268.     return ;
  269.  
  270.  /***************************************************************************
  271.   * Create the application message queue.  Abort if unable to do so.        *
  272.   ***************************************************************************/
  273.  
  274.   hMQ = WinCreateMsgQueue ( hAB, 0 ) ;
  275.   if ( hMQ == NULL )
  276.   {
  277.     WinTerminate ( hAB ) ;
  278.     return ;
  279.   }
  280.  
  281.  /***************************************************************************
  282.   * Now WIN and GPI calls will work.  Open the language DLL.            *
  283.   ***************************************************************************/
  284.  
  285.   if ( DosLoadModule ( Error, sizeof(Error), "MEMSIZE", &Library ) )
  286.   {
  287.     Debug ( HWND_DESKTOP, "ERROR: Unable to load MEMSIZE.DLL: %s", Error ) ;
  288.     WinDestroyMsgQueue ( hMQ ) ;
  289.     WinTerminate ( hAB ) ;
  290.     return ;
  291.   }
  292.  
  293.  /***************************************************************************
  294.   * Register the window class.                            *
  295.   ***************************************************************************/
  296.  
  297.   if ( NOT WinRegisterClass ( hAB, CLASS_NAME, MessageProcessor,
  298.     CS_MOVENOTIFY, sizeof(PVOID) ) )
  299.   {
  300.     CHAR Message [200] ;
  301.     char Title [80] ;
  302.  
  303.     WinLoadString ( hAB, Library, IDS_TITLE,
  304.       sizeof(Title), Title ) ;
  305.     WinLoadString ( hAB, Library, IDS_ERROR_WINREGISTERCLASS,
  306.       sizeof(Message), Message ) ;
  307.     WinMessageBox ( HWND_DESKTOP, HWND_DESKTOP, Message,
  308.       Title, 0, MB_ENTER | MB_ICONEXCLAMATION ) ;
  309.  
  310.     WinDestroyMsgQueue ( hMQ ) ;
  311.     WinTerminate ( hAB ) ;
  312.     return ;
  313.   }
  314.  
  315.  /***************************************************************************
  316.   * Decipher command-line parameters.                        *
  317.   ***************************************************************************/
  318.  
  319.   WinLoadString ( hAB, Library, IDS_PARMS_RESET, sizeof(ResetCommand), ResetCommand ) ;
  320.   Reset = FALSE ;
  321.  
  322.   while ( --argc )
  323.   {
  324.     argv ++ ;
  325.     strupr ( *argv ) ;
  326.     if ( *argv[0] == '?' )
  327.     {
  328.       CHAR Message [200] ;
  329.       CHAR Title [80] ;
  330.  
  331.       WinLoadString ( hAB, Library, IDS_TITLE,
  332.     sizeof(Title), Title ) ;
  333.       WinLoadString ( hAB, Library, IDS_PARAMETERLIST,
  334.     sizeof(Message), Message ) ;
  335.       WinMessageBox ( HWND_DESKTOP, HWND_DESKTOP, Message,
  336.     Title, 0, MB_ENTER | MB_NOICON ) ;
  337.  
  338.       WinDestroyMsgQueue ( hMQ ) ;
  339.       WinTerminate ( hAB ) ;
  340.       return ;
  341.     }
  342.  
  343.     if ( !strcmp ( *argv, ResetCommand ) )
  344.     {
  345.       Reset = TRUE ;
  346.       continue ;
  347.     }
  348.  
  349.     {
  350.       CHAR Format [200] ;
  351.       CHAR Message [200] ;
  352.       CHAR Title [80] ;
  353.  
  354.       WinLoadString ( hAB, Library, IDS_TITLE,
  355.     sizeof(Title), Title ) ;
  356.       WinLoadString ( hAB, Library, IDS_ERROR_INVALIDPARM,
  357.     sizeof(Format), Format ) ;
  358.       sprintf ( Message, Format, *argv ) ;
  359.       WinMessageBox ( HWND_DESKTOP, HWND_DESKTOP, Message,
  360.     Title, 0, MB_ENTER | MB_ICONEXCLAMATION ) ;
  361.  
  362.       WinDestroyMsgQueue ( hMQ ) ;
  363.       WinTerminate ( hAB ) ;
  364.       return ;
  365.     }
  366.   }
  367.  
  368.  /***************************************************************************
  369.   * If we're going to reset the program's profile, do it now.               *
  370.   ***************************************************************************/
  371.  
  372.   if ( Reset )
  373.   {
  374.     PrfWriteProfileData ( HINI_USERPROFILE, PROGRAM_NAME, NULL, NULL, 0 ) ;
  375.   }
  376.  
  377.  /***************************************************************************
  378.   * Create the help instance.                            *
  379.   ***************************************************************************/
  380.  
  381.   WinLoadString ( hAB, Library, IDS_HELPTITLE, sizeof(HelpTitle), HelpTitle ) ;
  382.   HelpInit.pszHelpWindowTitle = HelpTitle ;
  383.  
  384.   hwndHelp = WinCreateHelpInstance ( hAB, &HelpInit ) ;
  385.  
  386.   if ( hwndHelp == NULL )
  387.   {
  388.     CHAR Message [200] ;
  389.     char Title [80] ;
  390.  
  391.     WinLoadString ( hAB, Library, IDS_TITLE,
  392.       sizeof(Title), Title ) ;
  393.     WinLoadString ( hAB, Library, IDS_ERROR_WINCREATEHELPINSTANCE,
  394.       sizeof(Message), Message ) ;
  395.     WinMessageBox ( HWND_DESKTOP, HWND_DESKTOP, Message,
  396.       Title, 0, MB_ENTER | MB_ICONEXCLAMATION ) ;
  397.   }
  398.  
  399.  /***************************************************************************
  400.   * Create the frame window.                            *
  401.   ***************************************************************************/
  402.  
  403.   fcdata.cb = sizeof(fcdata) ;
  404.   fcdata.flCreateFlags =
  405.     FCF_TITLEBAR | FCF_SYSMENU | FCF_BORDER |
  406.       FCF_ICON | FCF_MINBUTTON | FCF_NOBYTEALIGN | FCF_ACCELTABLE ;
  407.   fcdata.hmodResources = 0 ;
  408.   fcdata.idResources   = ID_MAIN ;
  409.  
  410.   hwndFrame = WinCreateWindow
  411.   (
  412.     HWND_DESKTOP,
  413.     WC_FRAME,
  414.     "",
  415.     0,
  416.     0, 0, 0, 0,
  417.     HWND_DESKTOP,
  418.     HWND_TOP,
  419.     ID_MAIN,
  420.     &fcdata,
  421.     NULL
  422.   ) ;
  423.  
  424.   if ( hwndFrame == NULL )
  425.   {
  426.     CHAR Message [200] ;
  427.     char Title [80] ;
  428.  
  429.     WinLoadString ( hAB, Library, IDS_TITLE,
  430.       sizeof(Title), Title ) ;
  431.     WinLoadString ( hAB, Library, IDS_ERROR_WINCREATEFRAME,
  432.       sizeof(Message), Message ) ;
  433.     WinMessageBox ( HWND_DESKTOP, HWND_DESKTOP, Message,
  434.       Title, 0, MB_ENTER | MB_ICONEXCLAMATION ) ;
  435.  
  436.     WinDestroyMsgQueue ( hMQ ) ;
  437.     WinTerminate ( hAB ) ;
  438.     return ;
  439.   }
  440.  
  441.  /***************************************************************************
  442.   * Set the title.                                *
  443.   ***************************************************************************/
  444.  
  445.   WinLoadString ( hAB, Library, IDS_TITLE, sizeof(Title), Title ) ;
  446.   WinSetWindowText ( hwndFrame, Title ) ;
  447.  
  448.  /***************************************************************************
  449.   * Associate the help instance with the frame window.                *
  450.   ***************************************************************************/
  451.  
  452.   if ( hwndHelp )
  453.   {
  454.     WinAssociateHelpInstance ( hwndHelp, hwndFrame ) ;
  455.   }
  456.  
  457.  /***************************************************************************
  458.   * Create client window.  If this fails, destroy frame and return.        *
  459.   ***************************************************************************/
  460.  
  461.   Parms.hAB = hAB ;
  462.   Parms.Library = Library ;
  463.  
  464.   hwndClient = WinCreateWindow
  465.   (
  466.     hwndFrame,
  467.     CLASS_NAME,
  468.     "",
  469.     0,
  470.     0, 0, 0, 0,
  471.     hwndFrame,
  472.     HWND_BOTTOM,
  473.     FID_CLIENT,
  474.     &Parms,
  475.     NULL
  476.   ) ;
  477.  
  478.   if ( hwndClient == NULL )
  479.   {
  480.     CHAR Message [200] ;
  481.     char Title [80] ;
  482.  
  483.     WinLoadString ( hAB, Library, IDS_TITLE,
  484.       sizeof(Title), Title ) ;
  485.     WinLoadString ( hAB, Library, IDS_ERROR_WINCREATEWINDOW,
  486.       sizeof(Message), Message ) ;
  487.     WinMessageBox ( HWND_DESKTOP, HWND_DESKTOP, Message,
  488.       Title, 0, MB_ENTER | MB_ICONEXCLAMATION ) ;
  489.  
  490.     WinDestroyWindow ( hwndFrame ) ;
  491.     WinDestroyMsgQueue ( hMQ ) ;
  492.     WinTerminate ( hAB ) ;
  493.     return ;
  494.   }
  495.  
  496.  /***************************************************************************
  497.   * Wait for and process messages to the window's queue.  Terminate         *
  498.   *   when the WM_QUIT message is received.                    *
  499.   ***************************************************************************/
  500.  
  501.   while ( WinGetMsg ( hAB, &qmsg, NULL, 0, 0 ) )
  502.   {
  503.     WinDispatchMsg ( hAB, &qmsg ) ;
  504.   }
  505.  
  506.  /***************************************************************************
  507.   * Destroy the window.                             *
  508.   ***************************************************************************/
  509.  
  510.   WinDestroyWindow ( hwndFrame ) ;
  511.  
  512.  /***************************************************************************
  513.   * If help instance has been created, get rid of it.                *
  514.   ***************************************************************************/
  515.  
  516.   if ( hwndHelp )
  517.   {
  518.     WinDestroyHelpInstance ( hwndHelp ) ;
  519.   }
  520.  
  521.  /***************************************************************************
  522.   * Release the library, if one's been loaded.                              *
  523.   ***************************************************************************/
  524.  
  525.   if ( Library )
  526.   {
  527.     DosFreeModule ( Library ) ;
  528.   }
  529.  
  530.  /***************************************************************************
  531.   * Discard all that was requested of the system and terminate.         *
  532.   ***************************************************************************/
  533.  
  534.   WinDestroyMsgQueue ( hMQ ) ;
  535.  
  536.   WinTerminate ( hAB ) ;
  537. }
  538.  
  539. /****************************************************************************
  540.  *                                        *
  541.  *    Window Message Processor                        *
  542.  *                                        *
  543.  ****************************************************************************/
  544.  
  545. static MRESULT EXPENTRY MessageProcessor
  546. (
  547.   HWND hwnd,
  548.   USHORT msg,
  549.   MPARAM mp1,
  550.   MPARAM mp2
  551. )
  552. {
  553.  /***************************************************************************
  554.   * Local Declarations                                *
  555.   ***************************************************************************/
  556.  
  557.   static METHOD Methods [] =
  558.   {
  559.     { WM_CREATE,        Create            },
  560.     { WM_DESTROY,        Destroy         },
  561.     { WM_SIZE,            Size            },
  562.     { WM_MOVE,            Size            },
  563.     { WM_SAVEAPPLICATION,    SaveApplication     },
  564.     { WM_PAINT,         Paint            },
  565.     { WM_BUTTON1DOWN,        ButtonDown        },
  566.     { WM_BUTTON2DOWN,        ButtonDown        },
  567.     { WM_BUTTON1DBLCLK,     ButtonDblClick        },
  568.     { WM_BUTTON2DBLCLK,     ButtonDblClick        },
  569.     { WM_PRESPARAMCHANGED,    PresParamChanged    },
  570.     { WM_SYSCOLORCHANGE,    SysColorChange        },
  571.     { WM_COMMAND,        Command         },
  572.     { HM_QUERY_KEYS_HELP,    QueryKeysHelp        },
  573.     { HM_ERROR,         HelpError        },
  574.     { HM_EXT_HELP_UNDEFINED,    ExtHelpUndefined    },
  575.     { HM_HELPSUBITEM_NOT_FOUND, HelpSubitemNotFound },
  576.     { WM_REFRESH,        Refresh         }
  577.   } ;
  578.  
  579.  /***************************************************************************
  580.   * Dispatch the message according to the method table and return the        *
  581.   *   result.  Any messages not defined above get handled by the system     *
  582.   *   default window processor.                         *
  583.   ***************************************************************************/
  584.  
  585.   return ( DispatchMessage ( hwnd, msg, mp1, mp2, Methods, sizeof(Methods)/sizeof(Methods[0]), WinDefWindowProc ) ) ;
  586. }
  587.  
  588. /****************************************************************************
  589.  *                                        *
  590.  *    Create the main window.                         *
  591.  *                                        *
  592.  ****************************************************************************/
  593.  
  594. static MRESULT APIENTRY Create
  595. (
  596.   HWND hwnd,
  597.   USHORT msg,
  598.   MPARAM mp1,
  599.   MPARAM mp2
  600. )
  601. {
  602.  /***************************************************************************
  603.   *                Declarations                    *
  604.   ***************************************************************************/
  605.  
  606.   static MENUITEM MenuItems [] =
  607.   {
  608.     { MIT_END, MIS_TEXT,      0, IDM_SAVE_APPLICATION, NULL, 0 },
  609.     { MIT_END, MIS_TEXT,      0, IDM_RESET_DEFAULTS,   NULL, 0 },
  610.     { MIT_END, MIS_TEXT,      0, IDM_HIDE_CONTROLS,    NULL, 0 },
  611.     { MIT_END, MIS_TEXT,      0, IDM_SET_TIMER,        NULL, 0 },
  612.     { MIT_END, MIS_SUBMENU,   0, IDM_DISPLAY_ITEMS,    NULL, 0 },
  613.   } ;
  614.  
  615.   static MENUITEM MenuSeparator =
  616.     { MIT_END, MIS_SEPARATOR, 0, 0, NULL, 0 } ;
  617.  
  618.   static MENUITEM MenuAbout =
  619.     { MIT_END, MIS_TEXT, 0, IDM_ABOUT, NULL, 0 } ;
  620.  
  621.   static MENUITEM MenuHelp =
  622.     { MIT_END, MIS_HELP, 0, 0, NULL, 0 } ;
  623.  
  624.   static MENUITEM MenuItem =
  625.     { MIT_END, MIS_TEXT, 0, 0, NULL, 0 } ;
  626.  
  627.   char AboutText [80] ;
  628.   PDATA Data ;
  629.   char HelpText [80] ;
  630.   HPS hPS ;
  631.   HWND hwndFrame ;
  632.   SHORT i ;
  633.   PIDLE_PARMS IdleParms ;
  634.   PMONITOR_PARMS MonitorParms ;
  635.   PPARMS Parms ;
  636.   RECTL Rectangle ;
  637.   ULONG Size ;
  638.   PCHAR Swappath ;
  639.   char Title [80] ;
  640.  
  641.  /***************************************************************************
  642.   * Allocate instance data.                            *
  643.   ***************************************************************************/
  644.  
  645.   Data = malloc ( sizeof(DATA) ) ;
  646.  
  647.   WinSetWindowPtr ( hwnd, QWL_USER, Data ) ;
  648.  
  649.  /***************************************************************************
  650.   * Grab any parameters from the WM_CREATE message.                *
  651.   ***************************************************************************/
  652.  
  653.   Parms = (PPARMS) PVOIDFROMMP ( mp1 ) ;
  654.  
  655.   Data->hAB = Parms->hAB ;
  656.   Data->Library = Parms->Library ;
  657.  
  658.  /***************************************************************************
  659.   * Get profile data.                                *
  660.   ***************************************************************************/
  661.  
  662.   GetProfile ( Data->hAB, Data->Library, &Data->Profile ) ;
  663.  
  664.  /***************************************************************************
  665.   * Get country information.                            *
  666.   ***************************************************************************/
  667.  
  668.   {
  669.     COUNTRYCODE CountryCode ;
  670.     USHORT Count ;
  671.     USHORT Status ;
  672.  
  673.     CountryCode.country = 0 ;
  674.     CountryCode.codepage = 0 ;
  675.  
  676.     Status = DosGetCtryInfo ( sizeof(Data->CountryInfo), &CountryCode,
  677.       &Data->CountryInfo, &Count ) ;
  678.     if ( Status )
  679.     {
  680.       char Message [80] ;
  681.       WinLoadMessage ( Data->hAB, Data->Library, IDS_ERROR_DOSGETCTRYINFO,
  682.     sizeof(Message), Message ) ;
  683.       Debug ( hwnd, Message, Status ) ;
  684.       Data->CountryInfo.fsDateFmt = DATEFMT_MM_DD_YY ;
  685.       Data->CountryInfo.fsTimeFmt = 0 ;
  686.       Data->CountryInfo.szDateSeparator[0] = '/' ;
  687.       Data->CountryInfo.szDateSeparator[1] = 0 ;
  688.       Data->CountryInfo.szTimeSeparator[0] = ':' ;
  689.       Data->CountryInfo.szTimeSeparator[1] = 0 ;
  690.       Data->CountryInfo.szThousandsSeparator[0] = ',' ;
  691.       Data->CountryInfo.szThousandsSeparator[1] = 0 ;
  692.     }
  693.   }
  694.  
  695.  /***************************************************************************
  696.   * Get the control window handles.                        *
  697.   ***************************************************************************/
  698.  
  699.   hwndFrame = WinQueryWindow ( hwnd, QW_PARENT, FALSE ) ;
  700.  
  701.   Data->hwndSysMenu  = WinWindowFromID ( hwndFrame, FID_SYSMENU  ) ;
  702.   Data->hwndTitleBar = WinWindowFromID ( hwndFrame, FID_TITLEBAR ) ;
  703.   Data->hwndMinMax   = WinWindowFromID ( hwndFrame, FID_MINMAX   ) ;
  704.  
  705.  /***************************************************************************
  706.   * Create the submenu window for Display Items.                *
  707.   ***************************************************************************/
  708.  
  709.   {
  710.     MENUITEM MenuItem ;
  711.     HWND hwndSysSubMenu ;
  712.     HWND hwndSubMenu ;
  713.     SHORT idSysMenu ;
  714.  
  715.     idSysMenu = SHORT1FROMMR ( WinSendMsg ( Data->hwndSysMenu, MM_ITEMIDFROMPOSITION, NULL, NULL ) ) ;
  716.     WinSendMsg ( Data->hwndSysMenu, MM_QUERYITEM, MPFROM2SHORT(idSysMenu,FALSE), MPFROMP(&MenuItem) ) ;
  717.     hwndSysSubMenu = MenuItem.hwndSubMenu ;
  718.  
  719.     hwndSubMenu = WinCreateWindow ( hwndSysSubMenu, WC_MENU, "",
  720.       WS_VISIBLE | WS_CLIPCHILDREN | WS_CLIPSIBLINGS,
  721.       0, 0, 0, 0, hwndSysSubMenu, HWND_TOP, IDM_DISPLAY_ITEMS, NULL, NULL ) ;
  722.  
  723.     MenuItems[IDM_DISPLAY_ITEMS-MenuItems[0].id].hwndSubMenu = hwndSubMenu ;
  724.   }
  725.  
  726.  /***************************************************************************
  727.   * Add basic extensions to the system menu.                    *
  728.   ***************************************************************************/
  729.  
  730.   AddSysMenuItem ( hwndFrame, &MenuSeparator, NULL ) ;
  731.  
  732.   for ( i=0; i<sizeof(MenuItems)/sizeof(MenuItems[0]); i++ )
  733.   {
  734.     char MenuText [80] ;
  735.     WinLoadString ( Data->hAB, Data->Library, i+IDS_SAVE_APPLICATION, sizeof(MenuText), MenuText ) ;
  736.     AddSysMenuItem ( hwndFrame, MenuItems+i, MenuText ) ;
  737.   }
  738.  
  739.  /***************************************************************************
  740.   * Add display items as options to the system menu.                *
  741.   ***************************************************************************/
  742.  
  743.   for ( i=0; i<Data->Profile.ItemCount; i++ )
  744.   {
  745.     PITEM Item = & Data->Profile.Items [i] ;
  746.  
  747.     MenuItem.id = Item->MenuId ;
  748.  
  749.     AddSysSubMenuItem ( hwndFrame, IDM_DISPLAY_ITEMS, &MenuItem, Item->MenuOption ) ;
  750.  
  751.     CheckMenuItem ( hwndFrame, FID_SYSMENU, Item->MenuId, Item->Flag ) ;
  752.   }
  753.  
  754.  /***************************************************************************
  755.   * Add 'About' to the system menu.                        *
  756.   ***************************************************************************/
  757.  
  758.   AddSysMenuItem ( hwndFrame, &MenuSeparator, NULL ) ;
  759.   WinLoadString ( Data->hAB, Data->Library, IDS_ABOUT, sizeof(AboutText), AboutText ) ;
  760.   AddSysMenuItem ( hwndFrame, &MenuAbout, AboutText ) ;
  761.  
  762.  /***************************************************************************
  763.   * Add 'Help' to the system menu.                        *
  764.   ***************************************************************************/
  765.  
  766.   WinLoadString ( Data->hAB, Data->Library, IDS_HELP, sizeof(HelpText), HelpText ) ;
  767.   AddSysMenuItem ( hwndFrame, &MenuHelp, HelpText ) ;
  768.  
  769.  /***************************************************************************
  770.   * Get the SWAPPATH statement from CONFIG.SYS.                 *
  771.   ***************************************************************************/
  772.  
  773.   Swappath = ScanSystemConfig ( "SWAPPATH" ) ;
  774.  
  775.   if ( Swappath == NULL )
  776.   {
  777.     Swappath = "C:\\OS2\\SYSTEM 0" ;
  778.   }
  779.  
  780.   strupr ( Swappath ) ;
  781.  
  782.   sscanf ( Swappath, "%s %i", Data->SwapPath, &Data->MinFree ) ;
  783.  
  784.  /***************************************************************************
  785.   * Find out where the spool work directory is.                 *
  786.   ***************************************************************************/
  787.  
  788.   Data->SpoolPath = NULL ;
  789.  
  790.   if ( PrfQueryProfileSize ( HINI_PROFILE, "PM_SPOOLER", "DIR", &Size ) )
  791.   {
  792.     Data->SpoolPath = malloc ( (int)Size ) ;
  793.     if ( Data->SpoolPath )
  794.     {
  795.       if ( PrfQueryProfileData ( HINI_PROFILE, "PM_SPOOLER", "DIR", Data->SpoolPath, &Size ) )
  796.       {
  797.     BYTE *p ;
  798.     p = strchr ( Data->SpoolPath, ';' ) ;
  799.     if ( p )
  800.     {
  801.       *p = 0 ;
  802.     }
  803.       }
  804.       else
  805.       {
  806.     free ( Data->SpoolPath ) ;
  807.     Data->SpoolPath = FALSE ;
  808.       }
  809.     }
  810.   }
  811.  
  812.  /***************************************************************************
  813.   * Start the load meter.                            *
  814.   ***************************************************************************/
  815.  
  816.   Data->IdleCounter = 0 ;
  817.  
  818.   IdleParms = malloc ( sizeof(*IdleParms) ) ;
  819.   IdleParms->Counter = & Data->IdleCounter ;
  820.   Data->IdleLoopTID = _beginthread ( IdleLoopThread, NULL, 8192, IdleParms ) ;
  821.  
  822.   if ( NOT Data->Profile.Items[ITEM_CPULOAD].Flag )
  823.   {
  824.     DosSuspendThread ( Data->IdleLoopTID ) ;
  825.   }
  826.  
  827.   MonitorParms = malloc ( sizeof(*MonitorParms) ) ;
  828.   MonitorParms->Counter = & Data->IdleCounter ;
  829.   MonitorParms->Interval = & Data->Profile.TimerInterval ;
  830.   MonitorParms->Owner = hwnd ;
  831.   Data->MonitorLoopTID = _beginthread ( MonitorLoopThread, NULL, 8192, MonitorParms ) ;
  832.  
  833.  /***************************************************************************
  834.   * Add the program to the system task list.                    *
  835.   ***************************************************************************/
  836.  
  837.   WinLoadString ( Data->hAB, Data->Library, IDS_TITLE, sizeof(Title), Title ) ;
  838.   Add2TaskList ( hwndFrame, Title ) ;
  839.  
  840.  /***************************************************************************
  841.   * Position & size the window.  For some reason, we must move and size     *
  842.   *   the window to the saved position before applying the resizing        *
  843.   *   function as fine-tuning.    Maybe the positioning request fails if        *
  844.   *   the window has no size?                            *
  845.   ***************************************************************************/
  846.  
  847.   WinSetWindowPos ( hwndFrame, NULL,
  848.     Data->Profile.Position.x, Data->Profile.Position.y,
  849.     Data->Profile.Position.cx, Data->Profile.Position.cy,
  850.     SWP_SIZE | SWP_MOVE ) ;
  851.  
  852.   ResizeWindow ( hwnd, &Data->Profile ) ;
  853.  
  854.  /***************************************************************************
  855.   * Hide the controls if so configured.                     *
  856.   ***************************************************************************/
  857.  
  858.   if ( Data->Profile.HideControls )
  859.   {
  860.     HideControls
  861.     (
  862.       TRUE,
  863.       hwndFrame,
  864.       Data->hwndSysMenu,
  865.       Data->hwndTitleBar,
  866.       Data->hwndMinMax
  867.     ) ;
  868.  
  869.     CheckMenuItem ( hwndFrame, FID_SYSMENU, IDM_HIDE_CONTROLS, Data->Profile.HideControls ) ;
  870.   }
  871.  
  872.  /***************************************************************************
  873.   * Get the saved presentation parameters and reinstate them.            *
  874.   ***************************************************************************/
  875.  
  876.   if ( Data->Profile.fFontNameSize )
  877.   {
  878.     WinSetPresParam ( hwnd, PP_FONTNAMESIZE,
  879.       strlen(Data->Profile.FontNameSize)+1, Data->Profile.FontNameSize ) ;
  880.   }
  881.  
  882.   if ( Data->Profile.fBackColor )
  883.   {
  884.     WinSetPresParam ( hwnd, PP_BACKGROUNDCOLOR,
  885.       sizeof(Data->Profile.BackColor), &Data->Profile.BackColor ) ;
  886.   }
  887.  
  888.   if ( Data->Profile.fTextColor )
  889.   {
  890.     WinSetPresParam ( hwnd, PP_FOREGROUNDCOLOR,
  891.       sizeof(Data->Profile.TextColor), &Data->Profile.TextColor ) ;
  892.   }
  893.  
  894.  /***************************************************************************
  895.   * Determine our font size.                            *
  896.   ***************************************************************************/
  897.  
  898.   hPS = WinGetPS ( hwnd ) ;
  899.   WinQueryWindowRect ( HWND_DESKTOP, &Rectangle ) ;
  900.   WinDrawText ( hPS, 1, " ", &Rectangle, 0L, 0L, DT_LEFT | DT_BOTTOM | DT_QUERYEXTENT ) ;
  901.   Data->Width  = Rectangle.xRight - Rectangle.xLeft ;
  902.   Data->Height = Rectangle.yTop - Rectangle.yBottom ;
  903.   WinReleasePS ( hPS ) ;
  904.  
  905.  /***************************************************************************
  906.   * Now that the window's in order, make it visible.                        *
  907.   ***************************************************************************/
  908.  
  909.   WinShowWindow ( hwndFrame, TRUE ) ;
  910.  
  911.  /***************************************************************************
  912.   * Success?  Return no error.                            *
  913.   ***************************************************************************/
  914.  
  915.   return ( 0 ) ;
  916.  
  917.   hwnd = hwnd ;
  918.   msg = msg ;
  919.   mp1 = mp1 ;
  920.   mp2 = mp2 ;
  921. }
  922.  
  923. /****************************************************************************
  924.  *                                        *
  925.  *    Destroy main window.                            *
  926.  *                                        *
  927.  ****************************************************************************/
  928.  
  929. static MRESULT APIENTRY Destroy
  930. (
  931.   HWND hwnd,
  932.   USHORT msg,
  933.   MPARAM mp1,
  934.   MPARAM mp2
  935. )
  936. {
  937.  /***************************************************************************
  938.   *                Declarations                    *
  939.   ***************************************************************************/
  940.  
  941.   PDATA Data ;
  942.  
  943.  /***************************************************************************
  944.   * Find the instance data.                            *
  945.   ***************************************************************************/
  946.  
  947.   Data = (PDATA) WinQueryWindowPtr ( hwnd, QWL_USER ) ;
  948.  
  949.  /***************************************************************************
  950.   * Suspend the CPU load threads.                        *
  951.   ***************************************************************************/
  952.  
  953.  /***************************************************************************
  954.   * Release the instance memory.                        *
  955.   ***************************************************************************/
  956.  
  957.   free ( Data ) ;
  958.  
  959.  /***************************************************************************
  960.   * We're done.                                                             *
  961.   ***************************************************************************/
  962.  
  963.   return ( MRFROMSHORT ( 0 ) ) ;
  964.  
  965.   hwnd = hwnd ;  msg = msg ;  mp1 = mp1 ;  mp2 = mp2 ;
  966. }
  967.  
  968. /****************************************************************************
  969.  *                                        *
  970.  *    Process window resize message.                        *
  971.  *                                        *
  972.  ****************************************************************************/
  973.  
  974. static MRESULT APIENTRY Size
  975. (
  976.   HWND hwnd,
  977.   USHORT msg,
  978.   MPARAM mp1,
  979.   MPARAM mp2
  980. )
  981. {
  982.  /***************************************************************************
  983.   *                Declarations                    *
  984.   ***************************************************************************/
  985.  
  986.   PDATA Data ;
  987.  
  988.   HWND hwndFrame ;
  989.   SWP Position ;
  990.  
  991.  /***************************************************************************
  992.   * Find the instance data.                            *
  993.   ***************************************************************************/
  994.  
  995.   Data = (PDATA) WinQueryWindowPtr ( hwnd, QWL_USER ) ;
  996.  
  997.  /***************************************************************************
  998.   * Find out the window's new position and size.                            *
  999.   ***************************************************************************/
  1000.  
  1001.   hwndFrame = WinQueryWindow ( hwnd, QW_PARENT, FALSE ) ;
  1002.  
  1003.   WinQueryWindowPos ( hwndFrame, &Position ) ;
  1004.  
  1005.   if ( NOT ( Position.fs & SWP_MINIMIZE )
  1006.     AND NOT ( Position.fs & SWP_MAXIMIZE ) )
  1007.   {
  1008.     Data->Profile.Position.x = Position.x ;
  1009.     Data->Profile.Position.y = Position.y ;
  1010.  
  1011.     Data->Profile.Position.cx = Position.cx ;
  1012.     Data->Profile.Position.cy = Position.cy ;
  1013.   }
  1014.  
  1015.   Data->Profile.Position.fs = Position.fs ;
  1016.  
  1017.  /***************************************************************************
  1018.   * We're done.                                                             *
  1019.   ***************************************************************************/
  1020.  
  1021.   return ( 0 ) ;
  1022.  
  1023.   hwnd = hwnd ;
  1024.   msg = msg ;
  1025.   mp1 = mp1 ;
  1026.   mp2 = mp2 ;
  1027. }
  1028.  
  1029. /****************************************************************************
  1030.  *                                        *
  1031.  *    Process SAVE APPLICATION message.                    *
  1032.  *                                        *
  1033.  ****************************************************************************/
  1034.  
  1035. static MRESULT APIENTRY SaveApplication
  1036. (
  1037.   HWND hwnd,
  1038.   USHORT msg,
  1039.   MPARAM mp1,
  1040.   MPARAM mp2
  1041. )
  1042. {
  1043.  /***************************************************************************
  1044.   *                Declarations                    *
  1045.   ***************************************************************************/
  1046.  
  1047.   PDATA Data ;
  1048.  
  1049.  /***************************************************************************
  1050.   * Find the instance data.                            *
  1051.   ***************************************************************************/
  1052.  
  1053.   Data = (PDATA) WinQueryWindowPtr ( hwnd, QWL_USER ) ;
  1054.  
  1055.  /***************************************************************************
  1056.   * Call function to put all profile data out to the system.            *
  1057.   ***************************************************************************/
  1058.  
  1059.   PutProfile ( &Data->Profile ) ;
  1060.  
  1061.  /***************************************************************************
  1062.   * We're done.  Let the system complete default processing.                *
  1063.   ***************************************************************************/
  1064.  
  1065.   return ( WinDefWindowProc ( hwnd, WM_SAVEAPPLICATION, 0, 0 ) ) ;
  1066.  
  1067.   hwnd = hwnd ;
  1068.   msg = msg ;
  1069.   mp1 = mp1 ;
  1070.   mp2 = mp2 ;
  1071. }
  1072.  
  1073. /****************************************************************************
  1074.  *                                        *
  1075.  *    Repaint entire window.                            *
  1076.  *                                        *
  1077.  ****************************************************************************/
  1078.  
  1079. static MRESULT APIENTRY Paint
  1080. (
  1081.   HWND hwnd,
  1082.   USHORT msg,
  1083.   MPARAM mp1,
  1084.   MPARAM mp2
  1085. )
  1086. {
  1087.  /***************************************************************************
  1088.   *                Declarations                    *
  1089.   ***************************************************************************/
  1090.  
  1091.   PDATA Data ;
  1092.   HPS hPS ;
  1093.   RECTL Rectangle ;
  1094.  
  1095.  /***************************************************************************
  1096.   * Find the instance data.                            *
  1097.   ***************************************************************************/
  1098.  
  1099.   Data = (PDATA) WinQueryWindowPtr ( hwnd, QWL_USER ) ;
  1100.  
  1101.  /***************************************************************************
  1102.   * Get presentation space and make it use RGB colors.                *
  1103.   ***************************************************************************/
  1104.  
  1105.   hPS = WinBeginPaint ( hwnd, NULL, NULL ) ;
  1106.   GpiCreateLogColorTable ( hPS, LCOL_RESET, LCOLF_RGB, 0L, 0L, NULL ) ;
  1107.  
  1108.  /***************************************************************************
  1109.   * Clear the window.                                *
  1110.   ***************************************************************************/
  1111.  
  1112.   WinQueryWindowRect ( hwnd, &Rectangle ) ;
  1113.  
  1114.   GpiMove ( hPS, (PPOINTL) &Rectangle.xLeft ) ;
  1115.   GpiSetColor ( hPS, Data->Profile.BackColor ) ;
  1116.   GpiBox ( hPS, DRO_FILL, (PPOINTL) &Rectangle.xRight, 0L, 0L ) ;
  1117.  
  1118.  /***************************************************************************
  1119.   * Release presentation space.                         *
  1120.   ***************************************************************************/
  1121.  
  1122.   WinEndPaint ( hPS ) ;
  1123.  
  1124.  /***************************************************************************
  1125.   * Update the window and return.                        *
  1126.   ***************************************************************************/
  1127.  
  1128.   UpdateWindow ( hwnd, Data, TRUE ) ;
  1129.  
  1130.   return ( 0 ) ;
  1131.  
  1132.   hwnd = hwnd ;
  1133.   msg = msg ;
  1134.   mp1 = mp1 ;
  1135.   mp2 = mp2 ;
  1136. }
  1137.  
  1138. /****************************************************************************
  1139.  *                                        *
  1140.  *    Process commands received by Main Window                *
  1141.  *                                        *
  1142.  ****************************************************************************/
  1143.  
  1144. static MRESULT APIENTRY Command
  1145. (
  1146.   HWND hwnd,
  1147.   USHORT msg,
  1148.   MPARAM mp1,
  1149.   MPARAM mp2
  1150. )
  1151. {
  1152.  /***************************************************************************
  1153.   * Local Declarations                                *
  1154.   ***************************************************************************/
  1155.  
  1156.   static METHOD Methods [] =
  1157.   {
  1158.     { IDM_SAVE_APPLICATION, SaveApplication },
  1159.     { IDM_RESET_DEFAULTS,   ResetDefaults   },
  1160.     { IDM_HIDE_CONTROLS,    HideControlsCmd },
  1161.     { IDM_SET_TIMER,        SetTimer        },
  1162.     { IDM_EXIT,         Exit        },
  1163.     { IDM_ABOUT,        About        },
  1164.   } ;
  1165.  
  1166.   USHORT Command ;
  1167.   PDATA Data ;
  1168.   short i ;
  1169.  
  1170.  /***************************************************************************
  1171.   * Find the instance data.                            *
  1172.   ***************************************************************************/
  1173.  
  1174.   Data = (PDATA) WinQueryWindowPtr ( hwnd, QWL_USER ) ;
  1175.  
  1176.  /***************************************************************************
  1177.   * Process indicated command . . .                        *
  1178.   ***************************************************************************/
  1179.  
  1180.   Command = SHORT1FROMMP ( mp1 ) ;
  1181.  
  1182.  /***************************************************************************
  1183.   * Process display item commands.                        *
  1184.   ***************************************************************************/
  1185.  
  1186.   for ( i=0; i<Data->Profile.ItemCount; i++ )
  1187.   {
  1188.     PITEM Item = & Data->Profile.Items [i] ;
  1189.  
  1190.     if ( Command == Item->MenuId )
  1191.     {
  1192.       HWND hwndFrame = WinQueryWindow ( hwnd, QW_PARENT, FALSE ) ;
  1193.  
  1194.       Item->Flag = Item->Flag ? FALSE : TRUE ;
  1195.  
  1196.       if ( i == ITEM_CPULOAD )
  1197.       {
  1198.     if ( Item->Flag )
  1199.       DosResumeThread ( Data->IdleLoopTID ) ;
  1200.     else
  1201.       DosSuspendThread ( Data->IdleLoopTID ) ;
  1202.       }
  1203.  
  1204.       CheckMenuItem ( hwndFrame, FID_SYSMENU, Item->MenuId, Item->Flag ) ;
  1205.  
  1206.       ResizeWindow ( hwnd, &Data->Profile ) ;
  1207.  
  1208.       return ( MRFROMSHORT ( 0 ) ) ;
  1209.     }
  1210.   }
  1211.  
  1212.  /***************************************************************************
  1213.   * Dispatch all other commands through the method table.            *
  1214.   ***************************************************************************/
  1215.  
  1216.   return ( DispatchMessage ( hwnd, SHORT1FROMMP(mp1), mp1, mp2, Methods, sizeof(Methods)/sizeof(Methods[0]), NULL ) ) ;
  1217.  
  1218.   hwnd = hwnd ;  msg = msg ;  mp1 = mp1 ;  mp2 = mp2 ;
  1219. }
  1220.  
  1221. /****************************************************************************
  1222.  *                                        *
  1223.  *    Process Reset Defaults menu command.                    *
  1224.  *                                        *
  1225.  ****************************************************************************/
  1226.  
  1227. static MRESULT APIENTRY ResetDefaults
  1228. ( 
  1229.   HWND hwnd, 
  1230.   USHORT msg, 
  1231.   MPARAM mp1, 
  1232.   MPARAM mp2
  1233. )
  1234. {
  1235.  /***************************************************************************
  1236.   * Reset all profile data for this program.                    *
  1237.   ***************************************************************************/
  1238.  
  1239.   PrfWriteProfileData ( HINI_USERPROFILE, PROGRAM_NAME, NULL, NULL, 0 ) ;
  1240.  
  1241.  /***************************************************************************
  1242.   * Reset the program's presentation parameters.                            *
  1243.   ***************************************************************************/
  1244.  
  1245.   WinRemovePresParam ( hwnd, PP_FONTNAMESIZE ) ;
  1246.   WinRemovePresParam ( hwnd, PP_FOREGROUNDCOLOR ) ;
  1247.   WinRemovePresParam ( hwnd, PP_BACKGROUNDCOLOR ) ;
  1248.  
  1249.  /***************************************************************************
  1250.   * Done.                                    *
  1251.   ***************************************************************************/
  1252.  
  1253.   return ( MRFROMSHORT ( 0 ) ) ;
  1254.  
  1255.   hwnd = hwnd ;  msg = msg ;  mp1 = mp1 ;  mp2 = mp2 ;
  1256. }
  1257.  
  1258. /****************************************************************************
  1259.  *                                        *
  1260.  *    Process Hide Controls menu command.                    *
  1261.  *                                        *
  1262.  ****************************************************************************/
  1263.  
  1264. static MRESULT APIENTRY HideControlsCmd
  1265. ( 
  1266.   HWND hwnd, 
  1267.   USHORT msg, 
  1268.   MPARAM mp1, 
  1269.   MPARAM mp2
  1270. )
  1271. {
  1272.  /***************************************************************************
  1273.   * Local Declarations.                             *
  1274.   ***************************************************************************/
  1275.  
  1276.   PDATA Data ;
  1277.   HWND hwndFrame = WinQueryWindow ( hwnd, QW_PARENT, FALSE ) ;
  1278.  
  1279.  /***************************************************************************
  1280.   * Find the instance data.                            *
  1281.   ***************************************************************************/
  1282.  
  1283.   Data = (PDATA) WinQueryWindowPtr ( hwnd, QWL_USER ) ;
  1284.  
  1285.  /***************************************************************************
  1286.   * Toggle the Hide Controls setting.                        *
  1287.   ***************************************************************************/
  1288.  
  1289.   Data->Profile.HideControls = Data->Profile.HideControls ? FALSE : TRUE ;
  1290.  
  1291.  /***************************************************************************
  1292.   * Go hide the controls, or reveal them, according to the new flag.        *
  1293.   ***************************************************************************/
  1294.  
  1295.   HideControls
  1296.   (
  1297.     Data->Profile.HideControls,
  1298.     WinQueryWindow ( hwnd, QW_PARENT, FALSE ),
  1299.     Data->hwndSysMenu,
  1300.     Data->hwndTitleBar,
  1301.     Data->hwndMinMax
  1302.   ) ;
  1303.  
  1304.  /***************************************************************************
  1305.   * Check or uncheck the menu option.                        *
  1306.   ***************************************************************************/
  1307.  
  1308.   CheckMenuItem ( hwndFrame, FID_SYSMENU, IDM_HIDE_CONTROLS, Data->Profile.HideControls ) ;
  1309.  
  1310.  /***************************************************************************
  1311.   * Done.                                    *
  1312.   ***************************************************************************/
  1313.  
  1314.   return ( MRFROMSHORT ( 0 ) ) ;
  1315.  
  1316.   hwnd = hwnd ;  msg = msg ;  mp1 = mp1 ;  mp2 = mp2 ;
  1317. }
  1318.  
  1319. /****************************************************************************
  1320.  *                                        *
  1321.  *    Process Set Timer menu command.                     *
  1322.  *                                        *
  1323.  ****************************************************************************/
  1324.  
  1325. static MRESULT APIENTRY SetTimer
  1326. ( 
  1327.   HWND hwnd, 
  1328.   USHORT msg, 
  1329.   MPARAM mp1, 
  1330.   MPARAM mp2
  1331. )
  1332. {
  1333.  /***************************************************************************
  1334.   * Local Declarations.                             *
  1335.   ***************************************************************************/
  1336.  
  1337.   PDATA Data ;
  1338.   SETTIMER_PARMS Parms ;
  1339.  
  1340.  /***************************************************************************
  1341.   * Find the instance data.                            *
  1342.   ***************************************************************************/
  1343.  
  1344.   Data = (PDATA) WinQueryWindowPtr ( hwnd, QWL_USER ) ;
  1345.  
  1346.  /***************************************************************************
  1347.   * Invoke the Set Timer dialog.                        *
  1348.   ***************************************************************************/
  1349.  
  1350.   Parms.id = IDD_SET_TIMER ;
  1351.   Parms.hwndHelp = WinQueryHelpInstance ( hwnd ) ;
  1352.   Parms.TimerInterval = & Data->Profile.TimerInterval ;
  1353.  
  1354.   WinDlgBox ( HWND_DESKTOP, hwnd, SetTimerProcessor,
  1355.     Data->Library, IDD_SET_TIMER, &Parms ) ;
  1356.  
  1357.  /***************************************************************************
  1358.   * Done.                                    *
  1359.   ***************************************************************************/
  1360.  
  1361.   return ( MRFROMSHORT ( 0 ) ) ;
  1362.  
  1363.   hwnd = hwnd ;  msg = msg ;  mp1 = mp1 ;  mp2 = mp2 ;
  1364. }
  1365.  
  1366. /****************************************************************************
  1367.  *                                        *
  1368.  *    Process About menu command.                        *
  1369.  *                                        *
  1370.  ****************************************************************************/
  1371.  
  1372. static MRESULT APIENTRY About
  1373. ( 
  1374.   HWND hwnd, 
  1375.   USHORT msg, 
  1376.   MPARAM mp1, 
  1377.   MPARAM mp2
  1378. )
  1379. {
  1380.  /***************************************************************************
  1381.   * Local Declarations                                *
  1382.   ***************************************************************************/
  1383.  
  1384.   PDATA Data ;
  1385.   ABOUT_PARMS Parms ;
  1386.  
  1387.  /***************************************************************************
  1388.   * Find the instance data.                            *
  1389.   ***************************************************************************/
  1390.  
  1391.   Data = (PDATA) WinQueryWindowPtr ( hwnd, QWL_USER ) ;
  1392.  
  1393.  /***************************************************************************
  1394.   * Invoke the About dialog.                            *
  1395.   ***************************************************************************/
  1396.  
  1397.   Parms.id = IDD_ABOUT ;
  1398.   Parms.hwndHelp = WinQueryHelpInstance ( hwnd ) ;
  1399.  
  1400.   WinDlgBox ( HWND_DESKTOP, hwnd, AboutProcessor,
  1401.     Data->Library, IDD_ABOUT, &Parms ) ;
  1402.  
  1403.  /***************************************************************************
  1404.   * Done.                                    *
  1405.   ***************************************************************************/
  1406.  
  1407.   return ( MRFROMSHORT ( 0 ) ) ;
  1408.  
  1409.   hwnd = hwnd ;  msg = msg ;  mp1 = mp1 ;  mp2 = mp2 ;
  1410. }
  1411.  
  1412. /****************************************************************************
  1413.  *                                        *
  1414.  *    Process Mouse Button being pressed.                    *
  1415.  *                                        *
  1416.  ****************************************************************************/
  1417.  
  1418. static MRESULT APIENTRY ButtonDown
  1419. (
  1420.   HWND hwnd,
  1421.   USHORT msg,
  1422.   MPARAM mp1,
  1423.   MPARAM mp2
  1424. )
  1425. {
  1426.  /***************************************************************************
  1427.   * Local Declarations                                *
  1428.   ***************************************************************************/
  1429.  
  1430.   PDATA Data ;
  1431.   HWND hwndFrame ;
  1432.   SWP Position ;
  1433.   TRACKINFO TrackInfo ;
  1434.  
  1435.  /***************************************************************************
  1436.   * Find the instance data.                            *
  1437.   ***************************************************************************/
  1438.  
  1439.   Data = (PDATA) WinQueryWindowPtr ( hwnd, QWL_USER ) ;
  1440.  
  1441.  /***************************************************************************
  1442.   * Determine the new window position.                        *
  1443.   ***************************************************************************/
  1444.  
  1445.   memset ( &TrackInfo, 0, sizeof(TrackInfo) ) ;
  1446.  
  1447.   TrackInfo.cxBorder = 1 ;
  1448.   TrackInfo.cyBorder = 1 ;
  1449.   TrackInfo.cxGrid = 1 ;
  1450.   TrackInfo.cyGrid = 1 ;
  1451.   TrackInfo.cxKeyboard = 8 ;
  1452.   TrackInfo.cyKeyboard = 8 ;
  1453.  
  1454.   hwndFrame = WinQueryWindow ( hwnd, QW_PARENT, FALSE ) ;
  1455.  
  1456.   WinQueryWindowPos ( hwndFrame, &Position ) ;
  1457.   TrackInfo.rclTrack.xLeft   = Position.x ;
  1458.   TrackInfo.rclTrack.xRight  = Position.x + Position.cx ;
  1459.   TrackInfo.rclTrack.yBottom = Position.y ;
  1460.   TrackInfo.rclTrack.yTop    = Position.y + Position.cy ;
  1461.  
  1462.   WinQueryWindowPos ( HWND_DESKTOP, &Position ) ;
  1463.   TrackInfo.rclBoundary.xLeft   = Position.x ;
  1464.   TrackInfo.rclBoundary.xRight  = Position.x + Position.cx ;
  1465.   TrackInfo.rclBoundary.yBottom = Position.y ;
  1466.   TrackInfo.rclBoundary.yTop    = Position.y + Position.cy ;
  1467.  
  1468.   TrackInfo.ptlMinTrackSize.x = 0 ;
  1469.   TrackInfo.ptlMinTrackSize.y = 0 ;
  1470.   TrackInfo.ptlMaxTrackSize.x = Position.cx ;
  1471.   TrackInfo.ptlMaxTrackSize.y = Position.cy ;
  1472.  
  1473.   TrackInfo.fs = TF_MOVE | TF_STANDARD | TF_ALLINBOUNDARY ;
  1474.  
  1475.   if ( WinTrackRect ( HWND_DESKTOP, NULL, &TrackInfo ) )
  1476.   {
  1477.     WinSetWindowPos ( hwndFrame, NULL,
  1478.       (SHORT) TrackInfo.rclTrack.xLeft,
  1479.       (SHORT) TrackInfo.rclTrack.yBottom,
  1480.       0, 0, SWP_MOVE ) ;
  1481.   }
  1482.  
  1483.  /***************************************************************************
  1484.   * Return through the default processor, letting window activation        *
  1485.   *   and other system functions occur.                     *
  1486.   ***************************************************************************/
  1487.  
  1488.   return ( WinDefWindowProc ( hwnd, msg, mp1, mp2 ) ) ;
  1489.  
  1490.   hwnd = hwnd ;  msg = msg ;  mp1 = mp1 ;  mp2 = mp2 ;
  1491. }
  1492.  
  1493. /****************************************************************************
  1494.  *                                        *
  1495.  *    Process Mouse Button having been double-clicked.            *
  1496.  *                                        *
  1497.  ****************************************************************************/
  1498.  
  1499. static MRESULT APIENTRY ButtonDblClick
  1500. (
  1501.   HWND hwnd,
  1502.   USHORT msg,
  1503.   MPARAM mp1,
  1504.   MPARAM mp2
  1505. )
  1506. {
  1507.  /***************************************************************************
  1508.   * Send message to self to stop hiding the controls.                *
  1509.   ***************************************************************************/
  1510.  
  1511.   WinPostMsg ( hwnd, WM_COMMAND,
  1512.     MPFROM2SHORT ( IDM_HIDE_CONTROLS, 0 ),
  1513.     MPFROM2SHORT ( CMDSRC_OTHER, TRUE ) ) ;
  1514.  
  1515.  /***************************************************************************
  1516.   * Return through the default processor, letting window activation        *
  1517.   *   and other system functions occur.                     *
  1518.   ***************************************************************************/
  1519.  
  1520.   return ( WinDefWindowProc ( hwnd, msg, mp1, mp2 ) ) ;
  1521.  
  1522.   hwnd = hwnd ;  msg = msg ;  mp1 = mp1 ;  mp2 = mp2 ;
  1523. }
  1524.  
  1525. /****************************************************************************
  1526.  *                                        *
  1527.  *    Process Presentation Parameter Changed notification.            *
  1528.  *                                        *
  1529.  ****************************************************************************/
  1530.  
  1531. static MRESULT APIENTRY PresParamChanged
  1532. (
  1533.   HWND hwnd,
  1534.   USHORT msg,
  1535.   MPARAM mp1,
  1536.   MPARAM mp2
  1537. )
  1538. {
  1539.  /***************************************************************************
  1540.   * Local Declarations                                *
  1541.   ***************************************************************************/
  1542.  
  1543.   PDATA Data ;
  1544.   HPS hPS ;
  1545.   ULONG ppid ;
  1546.   RECTL Rectangle ;
  1547.  
  1548.  /***************************************************************************
  1549.   * Find the instance data.                            *
  1550.   ***************************************************************************/
  1551.  
  1552.   Data = (PDATA) WinQueryWindowPtr ( hwnd, QWL_USER ) ;
  1553.  
  1554.  /***************************************************************************
  1555.   * Get the presentation parameter that changed.                *
  1556.   ***************************************************************************/
  1557.  
  1558.   switch ( LONGFROMMP(mp1) )
  1559.   {
  1560.  
  1561.    /*************************************************************************
  1562.     * If font, note the fact that we now have a font to be saved as        *
  1563.     *    part of the configuration.  Get the font metrics and resize        *
  1564.     *    the window appropriately.                        *
  1565.     *************************************************************************/
  1566.  
  1567.     case PP_FONTNAMESIZE:
  1568.     {
  1569.       if ( WinQueryPresParam ( hwnd, PP_FONTNAMESIZE, 0, &ppid,
  1570.     sizeof(Data->Profile.FontNameSize), &Data->Profile.FontNameSize,
  1571.     0 ) )
  1572.       {
  1573.     Data->Profile.fFontNameSize = TRUE ;
  1574.       }
  1575.       else
  1576.       {
  1577.     strcpy ( Data->Profile.FontNameSize, "" ) ;
  1578.     Data->Profile.fFontNameSize = FALSE ;
  1579.     PrfWriteProfileData ( HINI_USERPROFILE, PROGRAM_NAME, "FontNameSize", NULL, 0 ) ;
  1580.       }
  1581.  
  1582.       hPS = WinGetPS ( hwnd ) ;
  1583.       WinQueryWindowRect ( HWND_DESKTOP, &Rectangle ) ;
  1584.       WinDrawText ( hPS, 1, " ", &Rectangle, 0L, 0L, DT_LEFT | DT_BOTTOM | DT_QUERYEXTENT ) ;
  1585.       Data->Width  = Rectangle.xRight - Rectangle.xLeft ;
  1586.       Data->Height = Rectangle.yTop - Rectangle.yBottom ;
  1587.       WinReleasePS ( hPS ) ;
  1588.       ResizeWindow ( hwnd, &Data->Profile ) ;
  1589.       break ;
  1590.     }
  1591.  
  1592.    /*************************************************************************
  1593.     * If background color, note the fact and repaint the window.        *
  1594.     *************************************************************************/
  1595.  
  1596.     case PP_BACKGROUNDCOLOR:
  1597.     {
  1598.       if ( WinQueryPresParam ( hwnd, PP_BACKGROUNDCOLOR, 0, &ppid,
  1599.     sizeof(Data->Profile.BackColor), &Data->Profile.BackColor, 0 ) )
  1600.       {
  1601.     Data->Profile.fBackColor = TRUE ;
  1602.       }
  1603.       else
  1604.       {
  1605.     Data->Profile.BackColor = WinQuerySysColor ( HWND_DESKTOP, SYSCLR_WINDOW, 0L ) ;
  1606.     Data->Profile.fBackColor = FALSE ;
  1607.     PrfWriteProfileData ( HINI_USERPROFILE, PROGRAM_NAME, "BackgroundColor", NULL, 0 ) ;
  1608.       }
  1609.       WinInvalidateRect ( hwnd, NULL, TRUE ) ;
  1610.       break ;
  1611.     }
  1612.  
  1613.    /*************************************************************************
  1614.     * If foreground color, note the fact and repaint the window.        *
  1615.     *************************************************************************/
  1616.  
  1617.     case PP_FOREGROUNDCOLOR:
  1618.     {
  1619.       if ( WinQueryPresParam ( hwnd, PP_FOREGROUNDCOLOR, 0, &ppid,
  1620.     sizeof(Data->Profile.TextColor), &Data->Profile.TextColor, 0 ) )
  1621.       {
  1622.     Data->Profile.fTextColor = TRUE ;
  1623.       }
  1624.       else
  1625.       {
  1626.     Data->Profile.TextColor = WinQuerySysColor ( HWND_DESKTOP, SYSCLR_OUTPUTTEXT, 0L ) ;
  1627.     Data->Profile.fTextColor = FALSE ;
  1628.     PrfWriteProfileData ( HINI_USERPROFILE, PROGRAM_NAME, "ForegroundColor", NULL, 0 ) ;
  1629.       }
  1630.       WinInvalidateRect ( hwnd, NULL, TRUE ) ;
  1631.       break ;
  1632.     }
  1633.   }
  1634.  
  1635.  /***************************************************************************
  1636.   * Return through the default processor, letting window activation        *
  1637.   *   and other system functions occur.                     *
  1638.   ***************************************************************************/
  1639.  
  1640.   return ( WinDefWindowProc ( hwnd, msg, mp1, mp2 ) ) ;
  1641.  
  1642.   hwnd = hwnd ;  msg = msg ;  mp1 = mp1 ;  mp2 = mp2 ;
  1643. }
  1644.  
  1645. /****************************************************************************
  1646.  *                                        *
  1647.  *    Process System Color Change notification.                *
  1648.  *                                        *
  1649.  ****************************************************************************/
  1650.  
  1651. static MRESULT APIENTRY SysColorChange
  1652. (
  1653.   HWND hwnd,
  1654.   USHORT msg,
  1655.   MPARAM mp1,
  1656.   MPARAM mp2
  1657. )
  1658. {
  1659.  /***************************************************************************
  1660.   * Local Declarations                                *
  1661.   ***************************************************************************/
  1662.  
  1663.   PDATA Data ;
  1664.  
  1665.  /***************************************************************************
  1666.   * Find the instance data.                            *
  1667.   ***************************************************************************/
  1668.  
  1669.   Data = (PDATA) WinQueryWindowPtr ( hwnd, QWL_USER ) ;
  1670.  
  1671.  /***************************************************************************
  1672.   * If we aren't using custom colors, then query for the new defaults.      *
  1673.   ***************************************************************************/
  1674.  
  1675.   if ( NOT Data->Profile.fBackColor )
  1676.   {
  1677.     Data->Profile.BackColor = WinQuerySysColor ( HWND_DESKTOP, SYSCLR_WINDOW, 0L ) ;
  1678.   }
  1679.  
  1680.   if ( NOT Data->Profile.fTextColor )
  1681.   {
  1682.     Data->Profile.TextColor = WinQuerySysColor ( HWND_DESKTOP, SYSCLR_OUTPUTTEXT, 0L ) ;
  1683.   }
  1684.  
  1685.  /***************************************************************************
  1686.   * Return value must be NULL, according to the documentation.            *
  1687.   ***************************************************************************/
  1688.  
  1689.   return ( MRFROMP ( NULL ) ) ;
  1690.  
  1691.   hwnd = hwnd ;  msg = msg ;  mp1 = mp1 ;  mp2 = mp2 ;
  1692. }
  1693.  
  1694. /****************************************************************************
  1695.  *                                        *
  1696.  *    Process Query for Keys Help resource id.                *
  1697.  *                                        *
  1698.  ****************************************************************************/
  1699.  
  1700. static MRESULT APIENTRY QueryKeysHelp
  1701. (
  1702.   HWND hwnd,
  1703.   USHORT msg,
  1704.   MPARAM mp1,
  1705.   MPARAM mp2
  1706. )
  1707. {
  1708.  /***************************************************************************
  1709.   * Simply return the ID of the Keys Help panel.                *
  1710.   ***************************************************************************/
  1711.  
  1712.   return ( (MRESULT) IDM_KEYS_HELP ) ;
  1713.  
  1714.   hwnd = hwnd ;  msg = msg ;  mp1 = mp1 ;  mp2 = mp2 ;
  1715. }
  1716.  
  1717. /****************************************************************************
  1718.  *                                        *
  1719.  *    Process Help Manager Error                        *
  1720.  *                                        *
  1721.  ****************************************************************************/
  1722.  
  1723. static MRESULT APIENTRY HelpError
  1724. ( 
  1725.   HWND hwnd, 
  1726.   USHORT msg, 
  1727.   MPARAM mp1, 
  1728.   MPARAM mp2
  1729. )
  1730. {
  1731.  /***************************************************************************
  1732.   * Local Declarations                                *
  1733.   ***************************************************************************/
  1734.  
  1735.   static struct
  1736.   {
  1737.     ULONG Error ;
  1738.     USHORT StringId ;
  1739.   }
  1740.   HelpErrors [] =
  1741.   {
  1742.     { HMERR_NO_FRAME_WND_IN_CHAIN,     IDS_HMERR_NO_FRAME_WND_IN_CHAIN },
  1743.     { HMERR_INVALID_ASSOC_APP_WND,     IDS_HMERR_INVALID_ASSOC_APP_WND },
  1744.     { HMERR_INVALID_ASSOC_HELP_INST,   IDS_HMERR_INVALID_ASSOC_HELP_IN },
  1745.     { HMERR_INVALID_DESTROY_HELP_INST, IDS_HMERR_INVALID_DESTROY_HELP_ },
  1746.     { HMERR_NO_HELP_INST_IN_CHAIN,     IDS_HMERR_NO_HELP_INST_IN_CHAIN },
  1747.     { HMERR_INVALID_HELP_INSTANCE_HDL, IDS_HMERR_INVALID_HELP_INSTANCE },
  1748.     { HMERR_INVALID_QUERY_APP_WND,     IDS_HMERR_INVALID_QUERY_APP_WND },
  1749.     { HMERR_HELP_INST_CALLED_INVALID,  IDS_HMERR_HELP_INST_CALLED_INVA },
  1750.     { HMERR_HELPTABLE_UNDEFINE,        IDS_HMERR_HELPTABLE_UNDEFINE    },
  1751.     { HMERR_HELP_INSTANCE_UNDEFINE,    IDS_HMERR_HELP_INSTANCE_UNDEFIN },
  1752.     { HMERR_HELPITEM_NOT_FOUND,        IDS_HMERR_HELPITEM_NOT_FOUND    },
  1753.     { HMERR_INVALID_HELPSUBITEM_SIZE,  IDS_HMERR_INVALID_HELPSUBITEM_S },
  1754.     { HMERR_HELPSUBITEM_NOT_FOUND,     IDS_HMERR_HELPSUBITEM_NOT_FOUND },
  1755.     { HMERR_INDEX_NOT_FOUND,           IDS_HMERR_INDEX_NOT_FOUND       },
  1756.     { HMERR_CONTENT_NOT_FOUND,           IDS_HMERR_CONTENT_NOT_FOUND     },
  1757.     { HMERR_OPEN_LIB_FILE,           IDS_HMERR_OPEN_LIB_FILE           },
  1758.     { HMERR_READ_LIB_FILE,           IDS_HMERR_READ_LIB_FILE           },
  1759.     { HMERR_CLOSE_LIB_FILE,           IDS_HMERR_CLOSE_LIB_FILE        },
  1760.     { HMERR_INVALID_LIB_FILE,           IDS_HMERR_INVALID_LIB_FILE      },
  1761.     { HMERR_NO_MEMORY,               IDS_HMERR_NO_MEMORY           },
  1762.     { HMERR_ALLOCATE_SEGMENT,           IDS_HMERR_ALLOCATE_SEGMENT      },
  1763.     { HMERR_FREE_MEMORY,           IDS_HMERR_FREE_MEMORY           },
  1764.     { HMERR_PANEL_NOT_FOUND,           IDS_HMERR_PANEL_NOT_FOUND       },
  1765.     { HMERR_DATABASE_NOT_OPEN,           IDS_HMERR_DATABASE_NOT_OPEN     },
  1766.     { 0,                   IDS_HMERR_UNKNOWN           }
  1767.   } ;
  1768.  
  1769.   PDATA Data ;
  1770.   ULONG ErrorCode = (ULONG) LONGFROMMP ( mp1 ) ;
  1771.   int Index ;
  1772.   char Message [200] ;
  1773.   char Title [80] ;
  1774.  
  1775.  /***************************************************************************
  1776.   * Find the instance data.                            *
  1777.   ***************************************************************************/
  1778.  
  1779.   Data = (PDATA) WinQueryWindowPtr ( hwnd, QWL_USER ) ;
  1780.  
  1781.  /***************************************************************************
  1782.   * Find the error code in the message table.                    *
  1783.   ***************************************************************************/
  1784.  
  1785.   Index = 0 ;
  1786.   while ( HelpErrors[Index].Error
  1787.     AND ( HelpErrors[Index].Error != ErrorCode ) )
  1788.   {
  1789.     Index ++ ;
  1790.   }
  1791.  
  1792.  /***************************************************************************
  1793.   * Get the message texts.                            *
  1794.   ***************************************************************************/
  1795.  
  1796.   WinLoadString ( Data->hAB, Data->Library, IDS_HMERR, sizeof(Title), Title ) ;
  1797.  
  1798.   WinLoadString ( Data->hAB, Data->Library, HelpErrors[Index].StringId, sizeof(Message), Message ) ;
  1799.  
  1800.  /***************************************************************************
  1801.   * Display the error message.                            *
  1802.   ***************************************************************************/
  1803.  
  1804.   WinMessageBox
  1805.   (
  1806.     HWND_DESKTOP,
  1807.     hwnd,
  1808.     Message,
  1809.     Title,
  1810.     0,
  1811.     MB_OK | MB_WARNING
  1812.   ) ;
  1813.  
  1814.  /***************************************************************************
  1815.   * Return zero, indicating that the message was processed.            *
  1816.   ***************************************************************************/
  1817.  
  1818.   return ( MRFROMSHORT ( 0 ) ) ;
  1819.  
  1820.   hwnd = hwnd ;  msg = msg ;  mp1 = mp1 ;  mp2 = mp2 ;
  1821. }
  1822.  
  1823. /****************************************************************************
  1824.  *                                        *
  1825.  *    Process "Extended Help Undefined" notification                *
  1826.  *                                        *
  1827.  ****************************************************************************/
  1828.  
  1829. static MRESULT APIENTRY ExtHelpUndefined
  1830. ( 
  1831.   HWND hwnd, 
  1832.   USHORT msg, 
  1833.   MPARAM mp1, 
  1834.   MPARAM mp2
  1835. )
  1836. {
  1837.  /***************************************************************************
  1838.   * Local Declarations                                *
  1839.   ***************************************************************************/
  1840.  
  1841.   PDATA Data ;
  1842.   char Message [200] ;
  1843.   char Title [80] ;
  1844.  
  1845.  /***************************************************************************
  1846.   * Find the instance data.                            *
  1847.   ***************************************************************************/
  1848.  
  1849.   Data = (PDATA) WinQueryWindowPtr ( hwnd, QWL_USER ) ;
  1850.  
  1851.  /***************************************************************************
  1852.   * Get the message texts.                            *
  1853.   ***************************************************************************/
  1854.  
  1855.   WinLoadString ( Data->hAB, Data->Library, IDS_HMERR, sizeof(Title), Title ) ;
  1856.  
  1857.   WinLoadString ( Data->hAB, Data->Library, IDS_HMERR_EXTHELPUNDEFINED, sizeof(Message), Message ) ;
  1858.  
  1859.  /***************************************************************************
  1860.   * Display the error message.                            *
  1861.   ***************************************************************************/
  1862.  
  1863.   WinMessageBox
  1864.   (
  1865.     HWND_DESKTOP,
  1866.     hwnd,
  1867.     Message,
  1868.     Title,
  1869.     0,
  1870.     MB_OK | MB_WARNING
  1871.   ) ;
  1872.  
  1873.  /***************************************************************************
  1874.   * Return zero, indicating that the message was processed.            *
  1875.   ***************************************************************************/
  1876.  
  1877.   return ( MRFROMSHORT ( 0 ) ) ;
  1878.  
  1879.   hwnd = hwnd ;  msg = msg ;  mp1 = mp1 ;  mp2 = mp2 ;
  1880. }
  1881.  
  1882. /****************************************************************************
  1883.  *                                        *
  1884.  *    Process "Help Subitem Not Found" notification                *
  1885.  *                                        *
  1886.  ****************************************************************************/
  1887.  
  1888. static MRESULT APIENTRY HelpSubitemNotFound
  1889. ( 
  1890.   HWND hwnd, 
  1891.   USHORT msg, 
  1892.   MPARAM mp1, 
  1893.   MPARAM mp2
  1894. )
  1895. {
  1896.  /***************************************************************************
  1897.   * Local Declarations                                *
  1898.   ***************************************************************************/
  1899.  
  1900.   PDATA Data ;
  1901.   int i ;
  1902.   BYTE Format [200] ;
  1903.   BYTE Message [200] ;
  1904.   BYTE Mode [40] ;
  1905.   USHORT Subtopic ;
  1906.   char Title [80] ;
  1907.   USHORT Topic ;
  1908.  
  1909.  /***************************************************************************
  1910.   * Find the instance data.                            *
  1911.   ***************************************************************************/
  1912.  
  1913.   Data = (PDATA) WinQueryWindowPtr ( hwnd, QWL_USER ) ;
  1914.  
  1915.  /***************************************************************************
  1916.   * Get the title text.                             *
  1917.   ***************************************************************************/
  1918.  
  1919.   WinLoadString ( Data->hAB, Data->Library, IDS_HMERR, sizeof(Title), Title ) ;
  1920.  
  1921.  /***************************************************************************
  1922.   * Format the error message.                            *
  1923.   ***************************************************************************/
  1924.  
  1925.   Topic = (USHORT) SHORT1FROMMP ( mp2 ) ;
  1926.   Subtopic = (USHORT) SHORT2FROMMP ( mp2 ) ;
  1927.  
  1928.   i = SHORT1FROMMP ( mp1 ) ;
  1929.  
  1930.   switch ( i )
  1931.   {
  1932.     case HLPM_FRAME:
  1933.       WinLoadString ( Data->hAB, Data->Library, IDS_HELPMODE_FRAME, sizeof(Mode), Mode ) ;
  1934.       break ;
  1935.  
  1936.     case HLPM_MENU:
  1937.       WinLoadString ( Data->hAB, Data->Library, IDS_HELPMODE_MENU, sizeof(Mode), Mode ) ;
  1938.       break ;
  1939.  
  1940.     case HLPM_WINDOW:
  1941.       WinLoadString ( Data->hAB, Data->Library, IDS_HELPMODE_WINDOW, sizeof(Mode), Mode ) ;
  1942.       break ;
  1943.  
  1944.     default:
  1945.       WinLoadString ( Data->hAB, Data->Library, IDS_HELPMODE_UNKNOWN, sizeof(Mode), Mode ) ;
  1946.   }
  1947.  
  1948.   WinLoadString ( Data->hAB, Data->Library, IDS_HELPSUBITEMNOTFOUND, sizeof(Format), Format ) ;
  1949.  
  1950.   sprintf ( Message, Format, Mode, Topic, Subtopic ) ;
  1951.  
  1952.  /***************************************************************************
  1953.   * Display the error message.                            *
  1954.   ***************************************************************************/
  1955.  
  1956.   WinMessageBox
  1957.   (
  1958.     HWND_DESKTOP,
  1959.     hwnd,
  1960.     Message,
  1961.     Title,
  1962.     0,
  1963.     MB_OK | MB_WARNING
  1964.   ) ;
  1965.  
  1966.  /***************************************************************************
  1967.   * Return zero, indicating that the message was processed.            *
  1968.   ***************************************************************************/
  1969.  
  1970.   return ( MRFROMSHORT ( 0 ) ) ;
  1971.  
  1972.   hwnd = hwnd ;  msg = msg ;  mp1 = mp1 ;  mp2 = mp2 ;
  1973. }
  1974.  
  1975. /****************************************************************************
  1976.  *                                        *
  1977.  *    Process Refresh message.                        *
  1978.  *                                        *
  1979.  ****************************************************************************/
  1980.  
  1981. static MRESULT APIENTRY Refresh
  1982. ( 
  1983.   HWND hwnd, 
  1984.   USHORT msg, 
  1985.   MPARAM mp1, 
  1986.   MPARAM mp2
  1987. )
  1988. {
  1989.  /***************************************************************************
  1990.   * Local Declarations                                *
  1991.   ***************************************************************************/
  1992.  
  1993.   PDATA Data ;
  1994.  
  1995.  /***************************************************************************
  1996.   * Find the instance data.                            *
  1997.   ***************************************************************************/
  1998.  
  1999.   Data = (PDATA) WinQueryWindowPtr ( hwnd, QWL_USER ) ;
  2000.  
  2001.  /***************************************************************************
  2002.   * Save the idle counter.                            *
  2003.   ***************************************************************************/
  2004.  
  2005.   Data->IdleCount = LONGFROMMP ( mp1 ) ;
  2006.  
  2007.  /***************************************************************************
  2008.   * Update the statistics.                            *
  2009.   ***************************************************************************/
  2010.  
  2011.   UpdateWindow ( hwnd, Data, FALSE ) ;
  2012.  
  2013.  /***************************************************************************
  2014.   * Return zero, indicating that the message was processed.            *
  2015.   ***************************************************************************/
  2016.  
  2017.   return ( MRFROMSHORT ( 0 ) ) ;
  2018.  
  2019.   hwnd = hwnd ;  msg = msg ;  mp1 = mp1 ;  mp2 = mp2 ;
  2020. }
  2021.  
  2022.  
  2023. /****************************************************************************
  2024.  *                                        *
  2025.  *                 Get Profile Data                    *
  2026.  *                                        *
  2027.  ****************************************************************************/
  2028.  
  2029. static void GetProfile ( HAB hAB, HMODULE Library, PROFILE *Profile )
  2030. {
  2031.  /***************************************************************************
  2032.   * Local Declarations                                *
  2033.   ***************************************************************************/
  2034.  
  2035.   #define ITEM_BASE_COUNT    6
  2036.   #define MAX_DRIVES        26
  2037.  
  2038.   static ITEM Items [ ITEM_BASE_COUNT + MAX_DRIVES ] =
  2039.   {
  2040.     {
  2041.       "ShowTime",      TRUE, "", 0L, "", IDM_SHOW_CLOCK,
  2042.       ComputeTime,     0, 0, ' '
  2043.     },
  2044.  
  2045.     {
  2046.       "ShowMemory",    TRUE, "", 0L, "", IDM_SHOW_MEMORY,
  2047.       ComputeFreeMemory, 0, 1024, 'K'
  2048.     },
  2049.  
  2050.     {
  2051.       "ShowSwapsize",  TRUE, "", 0L, "", IDM_SHOW_SWAPSIZE,
  2052.       ComputeSwapSize,     0, 1024, 'K'
  2053.     },
  2054.  
  2055.     {
  2056.       "ShowSwapfree",  TRUE, "", 0L, "", IDM_SHOW_SWAPFREE,
  2057.       ComputeSwapFree,     0, 1024, 'K'
  2058.     },
  2059.  
  2060.     {
  2061.       "ShowSpoolSize", TRUE, "", 0L, "", IDM_SHOW_SPOOLSIZE,
  2062.       ComputeSpoolSize,  0, 1024, 'K'
  2063.     },
  2064.  
  2065.     {
  2066.       "ShowCpuLoad",   TRUE, "", 0L, "", IDM_SHOW_CPULOAD,
  2067.       ComputeCpuLoad,     0, 0,      '%'
  2068.     }
  2069.   } ;
  2070.  
  2071.   int Count ;
  2072.   USHORT Drive ;
  2073.   ULONG Drives ;
  2074.   int i ;
  2075.   ULONG Size ;
  2076.  
  2077.   char LabelFormat [80] ;
  2078.   char OptionFormat [80] ;
  2079.  
  2080.  /***************************************************************************
  2081.   * Get fixed string information for item list.                 *
  2082.   ***************************************************************************/
  2083.  
  2084.   for ( i=0; i<ITEM_BASE_COUNT; i++ )
  2085.   {
  2086.     WinLoadString ( hAB, Library, i*2+IDS_SHOW_CLOCK_LABEL,
  2087.       sizeof(Items[i].Label), Items[i].Label ) ;
  2088.     WinLoadString ( hAB, Library, i*2+IDS_SHOW_CLOCK_OPTION,
  2089.       sizeof(Items[i].MenuOption), Items[i].MenuOption ) ;
  2090.   }
  2091.  
  2092.   WinLoadString ( hAB, Library, IDS_SHOW_DRIVE_FREE_LABEL, sizeof(LabelFormat), LabelFormat ) ;
  2093.   WinLoadString ( hAB, Library, IDS_SHOW_DRIVE_FREE_OPTION, sizeof(OptionFormat), OptionFormat ) ;
  2094.  
  2095.  /***************************************************************************
  2096.   * Add items for each drive on the system.                    *
  2097.   ***************************************************************************/
  2098.  
  2099.   Count = ITEM_BASE_COUNT ;
  2100.  
  2101.   DosQCurDisk ( &Drive, &Drives ) ;
  2102.  
  2103.   Drives >>= 2 ;
  2104.  
  2105.   for ( Drive=3; Drive<MAX_DRIVES; Drive++ )
  2106.   {
  2107.     if ( Drives & 1 )
  2108.     {
  2109.       USHORT Action ;
  2110.       BOOL Addit = FALSE ;
  2111.       USHORT Handle ;
  2112.       BYTE Path [3] ;
  2113.       USHORT Status ;
  2114.  
  2115.       Path[0] = (BYTE) ( Drive + 'A' - 1 ) ;
  2116.       Path[1] = ':' ;
  2117.       Path[2] = 0 ;
  2118.  
  2119.       Status = DosOpen ( Path, &Handle, &Action, 0, 0, FILE_OPEN,
  2120.     OPEN_ACCESS_READONLY | OPEN_SHARE_DENYNONE |
  2121.     OPEN_FLAGS_DASD | OPEN_FLAGS_FAIL_ON_ERROR, 0 ) ;
  2122.  
  2123.       if ( Status == 0 )
  2124.       {
  2125.     BIOSPARAMETERBLOCK BiosParms ;
  2126.     BYTE Command = 0 ;
  2127.  
  2128.     if ( !DosDevIOCtl ( &BiosParms, &Command, DSK_GETDEVICEPARAMS, IOCTL_DISK, Handle ) )
  2129.     {
  2130.       if ( BiosParms.fsDeviceAttr & 1 )  // Must be FIXED drive.
  2131.       {
  2132.         Addit = TRUE ;
  2133.       }
  2134.     }
  2135.     DosClose ( Handle ) ;
  2136.       }
  2137.       else if ( Status == ERROR_NETWORK_ACCESS_DENIED )
  2138.       {
  2139.     Addit = TRUE ;
  2140.       }
  2141.       else if ( Status == ERROR_INVALID_ACCESS )
  2142.       {
  2143.     Addit = TRUE ;
  2144.       }
  2145.       else
  2146.       {
  2147.         Debug ( HWND_DESKTOP, "Unable to open drive '%s'.  Status=%04X.",
  2148.           Path, Status ) ;
  2149.       }
  2150.  
  2151.       if ( Addit )
  2152.       {
  2153.     sprintf ( Items[Count].Name,       "ShowDrive%c:", Drive+'A'-1 ) ;
  2154.     sprintf ( Items[Count].Label,       LabelFormat,    Drive+'A'-1 ) ;
  2155.     sprintf ( Items[Count].MenuOption, OptionFormat,   Drive+'A'-1 ) ;
  2156.  
  2157.     Items[Count].MenuId = IDM_SHOW_DRIVE_FREE + Drive ;
  2158.     Items[Count].NewValue = ComputeDriveFree ;
  2159.     Items[Count].Parm = Drive ;
  2160.     Items[Count].Divisor = 1024 ;
  2161.     Items[Count].Suffix = 'K' ;
  2162.     Count ++ ;
  2163.       }
  2164.     }
  2165.     Drives >>= 1 ;
  2166.   }
  2167.  
  2168.  /***************************************************************************
  2169.   * Save pointer to fixed configuration information.                *
  2170.   ***************************************************************************/
  2171.  
  2172.   Profile->Items = Items ;
  2173.   Profile->ItemCount = Count ;
  2174.  
  2175.  /***************************************************************************
  2176.   * Get the window's current size and position.                             *
  2177.   ***************************************************************************/
  2178.  
  2179.   memset ( &Profile->Position, 0, sizeof(Profile->Position) ) ;
  2180.   Profile->fPosition = FALSE ;
  2181.   if
  2182.   (
  2183.     PrfQueryProfileSize ( HINI_PROFILE, PROGRAM_NAME, "Position", &Size )
  2184.     AND
  2185.     ( Size == sizeof(Profile->Position) )
  2186.     AND
  2187.     PrfQueryProfileData ( HINI_PROFILE, PROGRAM_NAME, "Position", &Profile->Position, &Size )
  2188.   )
  2189.   {
  2190.     Profile->fPosition = TRUE ;
  2191.   }
  2192.  
  2193.  /***************************************************************************
  2194.   * Get the program options.                            *
  2195.   ***************************************************************************/
  2196.  
  2197.   Profile->HideControls = FALSE ;
  2198.   if
  2199.   (
  2200.     PrfQueryProfileSize ( HINI_PROFILE, PROGRAM_NAME, "HideControls", &Size )
  2201.     AND
  2202.     ( Size == sizeof(Profile->HideControls) )
  2203.     AND
  2204.     PrfQueryProfileData ( HINI_PROFILE, PROGRAM_NAME, "HideControls", &Profile->HideControls, &Size )
  2205.   )
  2206.   {
  2207.     ;
  2208.   }
  2209.  
  2210.   Profile->TimerInterval = 1000 ;
  2211.   if
  2212.   (
  2213.     PrfQueryProfileSize ( HINI_PROFILE, PROGRAM_NAME, "TimerInterval", &Size )
  2214.     AND
  2215.     ( Size == sizeof(Profile->TimerInterval) )
  2216.     AND
  2217.     PrfQueryProfileData ( HINI_PROFILE, PROGRAM_NAME, "TimerInterval", &Profile->TimerInterval, &Size )
  2218.   )
  2219.   {
  2220.     ;
  2221.   }
  2222.  
  2223.  /***************************************************************************
  2224.   * Get the item options.                            *
  2225.   ***************************************************************************/
  2226.  
  2227.   for ( i=0; i<Profile->ItemCount; i++ )
  2228.   {
  2229.     PITEM Item = & Profile->Items [i] ;
  2230.  
  2231.     Item->Flag = TRUE ;
  2232.     if
  2233.     (
  2234.       PrfQueryProfileSize ( HINI_PROFILE, PROGRAM_NAME, Item->Name, &Size )
  2235.       AND
  2236.       ( Size == sizeof(Item->Flag) )
  2237.       AND
  2238.       PrfQueryProfileData ( HINI_PROFILE, PROGRAM_NAME, Item->Name, &Item->Flag, &Size )
  2239.     )
  2240.     {
  2241.       ;
  2242.     }
  2243.   }
  2244.  
  2245.  /***************************************************************************
  2246.   * Get the presentation parameters.                        *
  2247.   ***************************************************************************/
  2248.  
  2249.   strcpy ( Profile->FontNameSize, "" ) ;
  2250.   Profile->fFontNameSize = FALSE ;
  2251.   if
  2252.   (
  2253.     PrfQueryProfileSize ( HINI_PROFILE, PROGRAM_NAME, "FontNameSize", &Size )
  2254.     AND
  2255.     ( Size == sizeof(Profile->FontNameSize) )
  2256.     AND
  2257.     PrfQueryProfileData ( HINI_PROFILE, PROGRAM_NAME, "FontNameSize", &Profile->FontNameSize, &Size )
  2258.   )
  2259.   {
  2260.     Profile->fFontNameSize = TRUE ;
  2261.   }
  2262.  
  2263.   Profile->BackColor = WinQuerySysColor ( HWND_DESKTOP, SYSCLR_WINDOW, 0L ) ;
  2264.   Profile->fBackColor = FALSE ;
  2265.   if
  2266.   (
  2267.     PrfQueryProfileSize ( HINI_PROFILE, PROGRAM_NAME, "BackgroundColor", &Size )
  2268.     AND
  2269.     ( Size == sizeof(Profile->BackColor) )
  2270.     AND
  2271.     PrfQueryProfileData ( HINI_PROFILE, PROGRAM_NAME, "BackgroundColor", &Profile->BackColor, &Size )
  2272.   )
  2273.   {
  2274.     Profile->fBackColor = TRUE ;
  2275.   }
  2276.  
  2277.   Profile->TextColor = WinQuerySysColor ( HWND_DESKTOP, SYSCLR_OUTPUTTEXT, 0L ) ;
  2278.   Profile->fTextColor = FALSE ;
  2279.   if
  2280.   (
  2281.     PrfQueryProfileSize ( HINI_PROFILE, PROGRAM_NAME, "ForegroundColor", &Size )
  2282.     AND
  2283.     ( Size == sizeof(Profile->TextColor) )
  2284.     AND
  2285.     PrfQueryProfileData ( HINI_PROFILE, PROGRAM_NAME, "ForegroundColor", &Profile->TextColor, &Size )
  2286.   )
  2287.   {
  2288.     Profile->fTextColor = TRUE ;
  2289.   }
  2290. }
  2291.  
  2292. /****************************************************************************
  2293.  *                                        *
  2294.  *                 Put Profile Data                    *
  2295.  *                                        *
  2296.  ****************************************************************************/
  2297.  
  2298. static void PutProfile ( PROFILE *Profile )
  2299. {
  2300.  /***************************************************************************
  2301.   * Local Declarations                                *
  2302.   ***************************************************************************/
  2303.  
  2304.   int i ;
  2305.  
  2306.  /***************************************************************************
  2307.   * Save the window's current size and position.                            *
  2308.   ***************************************************************************/
  2309.  
  2310.   PrfWriteProfileData
  2311.   (
  2312.     HINI_USERPROFILE,
  2313.     PROGRAM_NAME,
  2314.     "Position",
  2315.     &Profile->Position,
  2316.     (ULONG)sizeof(Profile->Position)
  2317.   ) ;
  2318.  
  2319.  /***************************************************************************
  2320.   * Save the program options.                            *
  2321.   ***************************************************************************/
  2322.  
  2323.   PrfWriteProfileData
  2324.   (
  2325.     HINI_USERPROFILE,
  2326.     PROGRAM_NAME,
  2327.     "HideControls",
  2328.     &Profile->HideControls,
  2329.     (ULONG)sizeof(Profile->HideControls)
  2330.   ) ;
  2331.  
  2332.   PrfWriteProfileData
  2333.   (
  2334.     HINI_USERPROFILE,
  2335.     PROGRAM_NAME,
  2336.     "TimerInterval",
  2337.     &Profile->TimerInterval,
  2338.     (ULONG)sizeof(Profile->TimerInterval)
  2339.   ) ;
  2340.  
  2341.  /***************************************************************************
  2342.   * Save the item options.                            *
  2343.   ***************************************************************************/
  2344.  
  2345.   for ( i=0; i<Profile->ItemCount; i++ )
  2346.   {
  2347.     PITEM Item = & Profile->Items [i] ;
  2348.  
  2349.     PrfWriteProfileData
  2350.     (
  2351.       HINI_USERPROFILE,
  2352.       PROGRAM_NAME,
  2353.       Item->Name,
  2354.       &Item->Flag,
  2355.       (ULONG)sizeof(Item->Flag)
  2356.     ) ;
  2357.   }
  2358.  
  2359.  /***************************************************************************
  2360.   * Save the presentation parameters.                        *
  2361.   ***************************************************************************/
  2362.  
  2363.   if ( Profile->fFontNameSize )
  2364.   {
  2365.     PrfWriteProfileData
  2366.     (
  2367.       HINI_USERPROFILE,
  2368.       PROGRAM_NAME,
  2369.       "FontNameSize",
  2370.       Profile->FontNameSize,
  2371.       (ULONG)sizeof(Profile->FontNameSize)
  2372.     ) ;
  2373.   }
  2374.  
  2375.   if ( Profile->fBackColor )
  2376.   {
  2377.     PrfWriteProfileData
  2378.     (
  2379.       HINI_USERPROFILE,
  2380.       PROGRAM_NAME,
  2381.       "BackgroundColor",
  2382.       &Profile->BackColor,
  2383.       (ULONG)sizeof(Profile->BackColor)
  2384.     ) ;
  2385.   }
  2386.  
  2387.   if ( Profile->fTextColor )
  2388.   {
  2389.     PrfWriteProfileData
  2390.     (
  2391.       HINI_USERPROFILE,
  2392.       PROGRAM_NAME,
  2393.       "ForegroundColor",
  2394.       &Profile->TextColor,
  2395.       (ULONG)sizeof(Profile->TextColor)
  2396.     ) ;
  2397.   }
  2398. }
  2399.  
  2400. /****************************************************************************
  2401.  *                                        *
  2402.  *    Scan CONFIG.SYS for a keyword.    Return the value.            *
  2403.  *                                        *
  2404.  ****************************************************************************/
  2405.  
  2406. static PCHAR ScanSystemConfig ( PCHAR Keyword )
  2407. {
  2408.  /***************************************************************************
  2409.   * Local Declarations                                *
  2410.   ***************************************************************************/
  2411.  
  2412.   static char Buffer [500] ;
  2413.   FILE *File ;
  2414.   SEL GlobalSelector ;
  2415.   SEL LocalSelector ;
  2416.   char Path [_MAX_PATH] ;
  2417.   GINFOSEG FAR *pGlobalInfoSeg ;
  2418.  
  2419.  /***************************************************************************
  2420.   * Get the boot drive number from the global information segment.        *
  2421.   ***************************************************************************/
  2422.  
  2423.   DosGetInfoSeg ( &GlobalSelector, &LocalSelector ) ;
  2424.  
  2425.   pGlobalInfoSeg = MAKEPGINFOSEG ( GlobalSelector ) ;
  2426.  
  2427.  /***************************************************************************
  2428.   * Build the CONFIG.SYS path.                            *
  2429.   ***************************************************************************/
  2430.  
  2431.   Path[0] = (char) ( pGlobalInfoSeg->bootdrive + 'A' - 1 ) ;
  2432.   Path[1] = 0 ;
  2433.   strcat ( Path, ":\\CONFIG.SYS" ) ;
  2434.  
  2435.  /***************************************************************************
  2436.   * Open CONFIG.SYS for reading.                        *
  2437.   ***************************************************************************/
  2438.  
  2439.   File = fopen ( Path, "rt" ) ;
  2440.   if ( NOT File )
  2441.   {
  2442.     return ( NULL ) ;
  2443.   }
  2444.  
  2445.  /***************************************************************************
  2446.   * While there're more lines in CONFIG.SYS, read a line and check it.      *
  2447.   ***************************************************************************/
  2448.  
  2449.   while ( fgets ( Buffer, sizeof(Buffer), File ) )
  2450.   {
  2451.  
  2452.    /*************************************************************************
  2453.     * Clean any trailing newline character from the input string.        *
  2454.     *************************************************************************/
  2455.  
  2456.     if ( Buffer[strlen(Buffer)-1] == '\n' )
  2457.     {
  2458.       Buffer[strlen(Buffer)-1] = 0 ;
  2459.     }
  2460.  
  2461.    /*************************************************************************
  2462.     * If keyword starts the line, we've found the line we want.  Close      *
  2463.     *    the file and return a pointer to the parameter text.            *
  2464.     *************************************************************************/
  2465.  
  2466.     if ( NOT strnicmp ( Buffer, Keyword, strlen(Keyword) )
  2467.       AND ( Buffer[strlen(Keyword)] == '=' ) )
  2468.     {
  2469.       fclose ( File ) ;
  2470.       return ( Buffer + strlen(Keyword) + 1 ) ;
  2471.     }
  2472.   }
  2473.  
  2474.  /***************************************************************************
  2475.   * Close the file.  We haven't found the line we wanted.                   *
  2476.   ***************************************************************************/
  2477.  
  2478.   fclose ( File ) ;
  2479.  
  2480.   return ( NULL ) ;
  2481. }
  2482.  
  2483. /****************************************************************************
  2484.  *                                        *
  2485.  *             Resize Client Window                    *
  2486.  *                                        *
  2487.  ****************************************************************************/
  2488.  
  2489. static void ResizeWindow ( HWND hwnd, PROFILE *Profile )
  2490. {
  2491.  /***************************************************************************
  2492.   * Local Declarations                                *
  2493.   ***************************************************************************/
  2494.  
  2495.   SHORT Count ;
  2496.   SHORT fHadToHide = FALSE ;
  2497.   SHORT fHadToRestore = FALSE ;
  2498.   LONG Height ;
  2499.   HPS hPS ;
  2500.   HWND hwndFrame ;
  2501.   short i ;
  2502.   RECTL Rectangle ;
  2503.   char Text [100] ;
  2504.   LONG Widest ;
  2505.  
  2506.  /***************************************************************************
  2507.   * If the window is visible and minimized, restore it invisibly.        *
  2508.   ***************************************************************************/
  2509.  
  2510.   hwndFrame = WinQueryWindow ( hwnd, QW_PARENT, FALSE ) ;
  2511.  
  2512.   if ( Profile->Position.fs & SWP_MINIMIZE )
  2513.   {
  2514.     if ( WinIsWindowVisible ( hwndFrame ) )
  2515.     {
  2516.       WinShowWindow ( hwndFrame, FALSE ) ;
  2517.       fHadToHide = TRUE ;
  2518.     }
  2519.     WinSetWindowPos ( hwndFrame, NULL, 0, 0, 0, 0, SWP_RESTORE ) ;
  2520.     fHadToRestore = TRUE ;
  2521.   }
  2522.  
  2523.  /***************************************************************************
  2524.   * Determine how many items are to be displayed.                *
  2525.   ***************************************************************************/
  2526.  
  2527.   hPS = WinGetPS ( hwnd ) ;
  2528.  
  2529.   Count = 0 ;
  2530.   Widest = 0 ;
  2531.   Height = 0 ;
  2532.  
  2533.   for ( i=0; i<Profile->ItemCount; i++ )
  2534.   {
  2535.     PITEM Item = & Profile->Items [i] ;
  2536.  
  2537.     if ( Item->Flag )
  2538.     {
  2539.       Count ++ ;
  2540.  
  2541.       sprintf ( Text, "%s 1,234,567K", Item->Label ) ;
  2542.  
  2543.       WinQueryWindowRect ( HWND_DESKTOP, &Rectangle ) ;
  2544.  
  2545.       WinDrawText ( hPS, strlen(Text), Text,
  2546.     &Rectangle, 0L, 0L, DT_LEFT | DT_BOTTOM | DT_QUERYEXTENT ) ;
  2547.  
  2548.       Widest = max ( Widest, (Rectangle.xRight-Rectangle.xLeft+1) ) ;
  2549.  
  2550.       Height += Rectangle.yTop - Rectangle.yBottom ;
  2551.     }
  2552.   }
  2553.  
  2554.   WinReleasePS ( hPS ) ;
  2555.  
  2556.  /***************************************************************************
  2557.   * Get the window's current size & position.                               *
  2558.   ***************************************************************************/
  2559.  
  2560.   WinQueryWindowRect ( hwndFrame, &Rectangle ) ;
  2561.  
  2562.   WinCalcFrameRect ( hwndFrame, &Rectangle, TRUE ) ;
  2563.  
  2564.  /***************************************************************************
  2565.   * Adjust the window's width & height.                                     *
  2566.   ***************************************************************************/
  2567.  
  2568.   Rectangle.xRight  = Rectangle.xLeft + Widest ;
  2569.  
  2570.   Rectangle.yTop    = Rectangle.yBottom + Height ;
  2571.  
  2572.  /***************************************************************************
  2573.   * Compute new frame size and apply it.                    *
  2574.   ***************************************************************************/
  2575.  
  2576.   WinCalcFrameRect ( hwndFrame, &Rectangle, FALSE ) ;
  2577.  
  2578.   WinSetWindowPos ( hwndFrame, NULL, 0, 0,
  2579.     (SHORT) (Rectangle.xRight-Rectangle.xLeft),
  2580.     (SHORT) (Rectangle.yTop-Rectangle.yBottom),
  2581.     SWP_SIZE ) ;
  2582.  
  2583.  /***************************************************************************
  2584.   * Return the window to its original state.                    *
  2585.   ***************************************************************************/
  2586.  
  2587.   if ( fHadToRestore )
  2588.   {
  2589.     WinSetWindowPos ( hwndFrame, NULL,
  2590.       Profile->Position.x, Profile->Position.y,
  2591.       Profile->Position.cx, Profile->Position.cy,
  2592.       SWP_MOVE | SWP_SIZE | SWP_MINIMIZE ) ;
  2593.   }
  2594.  
  2595.   if ( fHadToHide )
  2596.   {
  2597.     WinShowWindow ( hwndFrame, TRUE ) ;
  2598.   }
  2599.  
  2600.  /***************************************************************************
  2601.   * Invalidate the window so that it gets repainted.                *
  2602.   ***************************************************************************/
  2603.  
  2604.   WinInvalidateRect ( hwnd, NULL, TRUE ) ;
  2605. }
  2606.  
  2607. /****************************************************************************
  2608.  *                                        *
  2609.  *            Hide Window Controls                    *
  2610.  *                                        *
  2611.  ****************************************************************************/
  2612.  
  2613. static void HideControls
  2614. (
  2615.   BOOL fHide,
  2616.   HWND hwndFrame,
  2617.   HWND hwndSysMenu,
  2618.   HWND hwndTitleBar,
  2619.   HWND hwndMinMax
  2620. )
  2621. {
  2622.  /***************************************************************************
  2623.   * Local Declarations                                *
  2624.   ***************************************************************************/
  2625.  
  2626.   SWP Position ;
  2627.   RECTL Rectangle ;
  2628.  
  2629.  /***************************************************************************
  2630.   * Determine client window and location.                    *
  2631.   ***************************************************************************/
  2632.  
  2633.   WinQueryWindowPos ( hwndFrame, &Position ) ;
  2634.  
  2635.   Rectangle.xLeft   = Position.x ;
  2636.   Rectangle.xRight  = Position.x + Position.cx ;
  2637.   Rectangle.yBottom = Position.y ;
  2638.   Rectangle.yTop    = Position.y + Position.cy ;
  2639.  
  2640.   WinCalcFrameRect ( hwndFrame, &Rectangle, TRUE ) ;
  2641.  
  2642.  /***************************************************************************
  2643.   * Hide or reveal the controls windows by changing their parentage.        *
  2644.   ***************************************************************************/
  2645.  
  2646.   if ( fHide )
  2647.   {
  2648.     WinSetParent ( hwndSysMenu,  HWND_OBJECT, FALSE ) ;
  2649.     WinSetParent ( hwndTitleBar, HWND_OBJECT, FALSE ) ;
  2650.     WinSetParent ( hwndMinMax,     HWND_OBJECT, FALSE ) ;
  2651.   }
  2652.   else
  2653.   {
  2654.     WinSetParent ( hwndSysMenu,  hwndFrame, TRUE ) ;
  2655.     WinSetParent ( hwndTitleBar, hwndFrame, TRUE ) ;
  2656.     WinSetParent ( hwndMinMax,     hwndFrame, TRUE ) ;
  2657.   }
  2658.  
  2659.  /***************************************************************************
  2660.   * Tell the frame that things have changed.  Let it update the window.     *
  2661.   ***************************************************************************/
  2662.  
  2663.   WinSendMsg ( hwndFrame, WM_UPDATEFRAME,
  2664.     MPFROMSHORT ( FCF_TITLEBAR | FCF_SYSMENU | FCF_MINBUTTON ), 0L ) ;
  2665.  
  2666.  /***************************************************************************
  2667.   * Reposition the frame around the client window, which is left be.        *
  2668.   ***************************************************************************/
  2669.  
  2670.   WinCalcFrameRect ( hwndFrame, &Rectangle, FALSE ) ;
  2671.  
  2672.   WinSetWindowPos ( hwndFrame, NULL,
  2673.     (SHORT) Rectangle.xLeft,  (SHORT) Rectangle.yBottom,
  2674.     (SHORT) (Rectangle.xRight-Rectangle.xLeft),
  2675.     (SHORT) (Rectangle.yTop-Rectangle.yBottom),
  2676.     SWP_SIZE | SWP_MOVE ) ;
  2677. }
  2678.  
  2679. /****************************************************************************
  2680.  *                                        *
  2681.  *    Update Window                                *
  2682.  *                                        *
  2683.  ****************************************************************************/
  2684.  
  2685. #pragma optimize ( "gle", off )
  2686.  
  2687. static void UpdateWindow ( HWND hwnd, PDATA Data, BOOL All )
  2688. {
  2689.  /***************************************************************************
  2690.   *                Declarations                    *
  2691.   ***************************************************************************/
  2692.  
  2693.   int Count ;
  2694.   HPS hPS ;
  2695.   short i ;
  2696.   RECTL Rectangle ;
  2697.   char Text [100] ;
  2698.  
  2699.  /***************************************************************************
  2700.   * Determine how many items are to be displayed.                *
  2701.   ***************************************************************************/
  2702.  
  2703.   Count = 0 ;
  2704.   for ( i=0; i<Data->Profile.ItemCount; i++ )
  2705.   {
  2706.     if ( Data->Profile.Items[i].Flag )
  2707.     {
  2708.       Count ++ ;
  2709.     }
  2710.   }
  2711.  
  2712.  /***************************************************************************
  2713.   * Get presentation space and make it use RGB colors.                *
  2714.   ***************************************************************************/
  2715.  
  2716.   hPS = WinGetPS ( hwnd ) ;
  2717.   GpiCreateLogColorTable ( hPS, LCOL_RESET, LCOLF_RGB, 0L, 0L, NULL ) ;
  2718.  
  2719.  /***************************************************************************
  2720.   * Get the window's size and determine the initial position.               *
  2721.   ***************************************************************************/
  2722.  
  2723.   WinQueryWindowRect ( hwnd, &Rectangle ) ;
  2724.  
  2725.   Rectangle.xLeft += Data->Width / 2 ;
  2726.   Rectangle.xRight -= Data->Width / 2 ;
  2727.  
  2728.   Rectangle.yBottom = Data->Height * ( Count - 1 ) ;
  2729.   Rectangle.yTop = Rectangle.yBottom + Data->Height ;
  2730.  
  2731.  /***************************************************************************
  2732.   * Review all items.  Display those changed, or all.                *
  2733.   ***************************************************************************/
  2734.  
  2735.   for ( i=0; i<Data->Profile.ItemCount; i++ )
  2736.   {
  2737.     PITEM Item = & Data->Profile.Items [i] ;
  2738.     ULONG NewValue ;
  2739.  
  2740.     if ( Item->Flag )
  2741.     {
  2742.       NewValue = Item->NewValue ( Data, Item->Parm ) ;
  2743.  
  2744.       if ( All OR ( NewValue != Item->Value ) )
  2745.       {
  2746.     switch ( i )
  2747.     {
  2748.       case ITEM_CLOCK:
  2749.       {
  2750.         ULONG Month  = ( NewValue % 100000000L ) / 1000000L ;
  2751.         ULONG Day     = ( NewValue % 1000000L ) / 10000L ;
  2752.         ULONG Hour     = ( NewValue % 10000L ) / 100L ;
  2753.         ULONG Minute = ( NewValue % 100L ) ;
  2754.  
  2755.         switch ( Data->CountryInfo.fsDateFmt )
  2756.         {
  2757.           case DATEFMT_DD_MM_YY:
  2758.         sprintf ( Text, "%02lu%s%02lu ",
  2759.           Day, Data->CountryInfo.szDateSeparator, Month ) ;
  2760.         break ;
  2761.  
  2762.           case DATEFMT_YY_MM_DD:
  2763.           case DATEFMT_MM_DD_YY:
  2764.           default:
  2765.         sprintf ( Text, "%02lu%s%02lu ",
  2766.           Month, Data->CountryInfo.szDateSeparator, Day ) ;
  2767.         break ;
  2768.         }
  2769.  
  2770.         if ( Data->CountryInfo.fsTimeFmt )
  2771.         {
  2772.           sprintf ( Text+strlen(Text), "%02lu%s%02lu",
  2773.         Hour,
  2774.         Data->CountryInfo.szTimeSeparator,
  2775.         Minute ) ;
  2776.         }
  2777.         else
  2778.         {
  2779.           PCHAR AmPm ;
  2780.  
  2781.           if ( Hour )
  2782.           {
  2783.         if ( Hour < 12 )
  2784.         {
  2785.           AmPm = "a" ;
  2786.         }
  2787.         else if ( Hour == 12 )
  2788.         {
  2789.           if ( Minute )
  2790.             AmPm = "p" ;
  2791.           else
  2792.             AmPm = "a" ;
  2793.         }
  2794.         else if ( Hour > 12 )
  2795.         {
  2796.           Hour -= 12 ;
  2797.           AmPm = "p" ;
  2798.         }
  2799.           }
  2800.           else
  2801.           {
  2802.         Hour = 12 ;
  2803.         if ( Minute )
  2804.           AmPm = "a" ;
  2805.         else
  2806.           AmPm = "p" ;
  2807.           }
  2808.           sprintf ( Text+strlen(Text), "%02lu%s%02lu%s",
  2809.         Hour, Data->CountryInfo.szTimeSeparator, Minute, AmPm ) ;
  2810.         }
  2811.         break ;
  2812.       }
  2813.  
  2814.       default:
  2815.       {
  2816.         memset ( Text, 0, sizeof(Text) ) ;
  2817.  
  2818.         if ( Item->Divisor )
  2819.         {
  2820.           if ( NewValue < Item->Divisor * 1000 )
  2821.         sprintf ( Text, "%lu", NewValue ) ;
  2822.           else
  2823.         sprintf ( Text, "%lu", (NewValue+Item->Divisor/2)/Item->Divisor ) ;
  2824.         }
  2825.         else
  2826.         {
  2827.           sprintf ( Text, "%lu", NewValue ) ;
  2828.         }
  2829.  
  2830.         {
  2831.           PCHAR p1, p2 ;
  2832.           CHAR Work[100] ;
  2833.  
  2834.           p1 = Text ;
  2835.           p2 = Work ;
  2836.           while ( *p1 )
  2837.           {
  2838.         *p2 = *p1 ;
  2839.         p1 ++ ;
  2840.         p2 ++ ;
  2841.         if ( *p1 )
  2842.         {
  2843.           if ( strlen(p1) % 3 == 0 )
  2844.           {
  2845.             *p2 = Data->CountryInfo.szThousandsSeparator [0] ;
  2846.             p2 ++ ;
  2847.           }
  2848.         }
  2849.           }
  2850.           *p2 = 0 ;
  2851.           strcpy ( Text, Work ) ;
  2852.         }
  2853.  
  2854.         if ( Item->Divisor )
  2855.         {
  2856.           if ( NewValue < Item->Divisor * 1000 )
  2857.         Text[strlen(Text)] = ' ' ;
  2858.           else
  2859.         Text[strlen(Text)] = Item->Suffix ;
  2860.         }
  2861.         else
  2862.         {
  2863.           Text[strlen(Text)] = Item->Suffix ;
  2864.         }
  2865.       }
  2866.     }
  2867.  
  2868.     WinDrawText ( hPS, strlen(Text), Text, &Rectangle,
  2869.       Data->Profile.TextColor, Data->Profile.BackColor,
  2870.       DT_RIGHT | DT_BOTTOM | DT_ERASERECT ) ;
  2871.  
  2872.     strcpy ( Text, Item->Label ) ;
  2873.  
  2874.     WinDrawText ( hPS, strlen(Text), Text, &Rectangle,
  2875.       Data->Profile.TextColor, Data->Profile.BackColor,
  2876.       DT_LEFT | DT_BOTTOM ) ;
  2877.  
  2878.     Item->Value = NewValue ;
  2879.       }
  2880.       Rectangle.yBottom -= Data->Height ;
  2881.       Rectangle.yTop    -= Data->Height ;
  2882.     }
  2883.   }
  2884.  
  2885.  /***************************************************************************
  2886.   * Release the presentation space and return.                    *
  2887.   ***************************************************************************/
  2888.  
  2889.   WinReleasePS ( hPS ) ;
  2890. }
  2891.  
  2892. #pragma optimize ( "gle", on )
  2893.  
  2894.  
  2895. /****************************************************************************
  2896.  *                                        *
  2897.  *    Compute Time                                *
  2898.  *                                        *
  2899.  ****************************************************************************/
  2900.  
  2901. static ULONG ComputeTime ( PDATA Data, USHORT Dummy )
  2902. {
  2903.   char DateString [9] ;
  2904.   short Hour, Minute ;
  2905.   short Month, Day ;
  2906.   ULONG Time ;
  2907.   char TimeString [9] ;
  2908.  
  2909.   _strdate ( DateString ) ;
  2910.   _strtime ( TimeString ) ;
  2911.  
  2912.   Hour     = atoi ( TimeString + 0 ) ;
  2913.   Minute = atoi ( TimeString + 3 ) ;
  2914.  
  2915.   Month  = atoi ( DateString + 0 ) ;
  2916.   Day     = atoi ( DateString + 3 ) ;
  2917.  
  2918.   Time = Month ;
  2919.   Time *= 100 ;
  2920.   Time += Day ;
  2921.   Time *= 100 ;
  2922.   Time += Hour ;
  2923.   Time *= 100 ;
  2924.   Time += Minute ;
  2925.  
  2926.   return ( Time ) ;
  2927. }
  2928.  
  2929. /****************************************************************************
  2930.  *                                        *
  2931.  *    Compute Available Memory                            *
  2932.  *                                        *
  2933.  ****************************************************************************/
  2934.  
  2935. static ULONG ComputeFreeMemory ( PDATA Data, USHORT Dummy )
  2936. {
  2937.   ULONG MemFree ;
  2938.  
  2939.   DosMemAvail ( &MemFree ) ;
  2940.  
  2941.   return ( MemFree ) ;
  2942. }
  2943.  
  2944. /****************************************************************************
  2945.  *                                        *
  2946.  *    Compute Swap-File Size                            *
  2947.  *                                        *
  2948.  ****************************************************************************/
  2949.  
  2950. static ULONG ComputeSwapSize ( PDATA Data, USHORT Dummy )
  2951. {
  2952.  /***************************************************************************
  2953.   *                Declarations                    *
  2954.   ***************************************************************************/
  2955.  
  2956.   char Path [_MAX_PATH+1] ;
  2957.   struct stat Status ;
  2958.   ULONG SwapSize ;
  2959.  
  2960.  /***************************************************************************
  2961.   * Find the swap file and find its size.                    *
  2962.   ***************************************************************************/
  2963.  
  2964.   strcpy ( Path, Data->SwapPath ) ;
  2965.  
  2966.   if ( Path[strlen(Path)-1] != '\\' )
  2967.   {
  2968.     strcat ( Path, "\\" ) ;
  2969.   }
  2970.  
  2971.   strcat ( Path, "SWAPPER.DAT" ) ;
  2972.  
  2973.   SwapSize = 0 ;
  2974.   if ( stat ( Path, &Status ) == 0 )
  2975.   {
  2976.     SwapSize = Status.st_size ;
  2977.   }
  2978.  
  2979.   return ( SwapSize ) ;
  2980. }
  2981.  
  2982. /****************************************************************************
  2983.  *                                        *
  2984.  *    Compute Available Swap Space                        *
  2985.  *                                        *
  2986.  ****************************************************************************/
  2987.  
  2988. static ULONG ComputeSwapFree ( PDATA Data, USHORT Dummy )
  2989. {
  2990.  /***************************************************************************
  2991.   *                Declarations                    *
  2992.   ***************************************************************************/
  2993.  
  2994.   FSALLOCATE Allocation ;
  2995.   char Path [_MAX_PATH+1] ;
  2996.   ULONG SwapFree ;
  2997.  
  2998.  /***************************************************************************
  2999.   * Find the swap file and find its size.                    *
  3000.   ***************************************************************************/
  3001.  
  3002.   strcpy ( Path, Data->SwapPath ) ;
  3003.   strcat ( Path, "\\SWAPPER.DAT" ) ;
  3004.  
  3005.  /***************************************************************************
  3006.   * Compute swap device free space.                        *
  3007.   ***************************************************************************/
  3008.  
  3009.   SwapFree = 0 ;
  3010.   if ( Path[0] )
  3011.   {
  3012.     DosQFSInfo ( Path[0]-'A'+1, FSIL_ALLOC,
  3013.       (PBYTE)&Allocation, sizeof(Allocation) ) ;
  3014.  
  3015.     SwapFree = Allocation.cUnitAvail*Allocation.cSectorUnit*Allocation.cbSector ;
  3016.   }
  3017.  
  3018.  /***************************************************************************
  3019.   * Return swap device's free space, less the minimum free space.           *
  3020.   ***************************************************************************/
  3021.  
  3022.   if ( SwapFree < (ULONG)Data->MinFree*1024L )
  3023.     return ( 0L ) ;
  3024.   else
  3025.     return ( SwapFree - (ULONG)Data->MinFree * 1024L ) ;
  3026. }
  3027.  
  3028. /****************************************************************************
  3029.  *                                        *
  3030.  *    Compute Spool-file Size                            *
  3031.  *                                        *
  3032.  ****************************************************************************/
  3033.  
  3034. static ULONG ComputeSpoolSize ( PDATA Data, USHORT Dummy )
  3035. {
  3036.   USHORT Count ;
  3037.   FILEFINDBUF *Found ;
  3038.   HDIR hDir = HDIR_CREATE ;
  3039.   BYTE *Path ;
  3040.   USHORT PathSize ;
  3041.   ULONG TotalSize = 0 ;
  3042.  
  3043.   DosQSysInfo ( 0, (PBYTE)&PathSize, sizeof(PathSize) ) ;
  3044.  
  3045.   Path = malloc ( PathSize ) ;
  3046.   if ( Path == NULL )
  3047.   {
  3048.     return ( 0 ) ;
  3049.   }
  3050.  
  3051.   Found = malloc ( PathSize + sizeof(FILEFINDBUF) ) ;
  3052.   if ( Found == NULL )
  3053.   {
  3054.     free ( Path ) ;
  3055.     return ( 0 ) ;
  3056.   }
  3057.  
  3058.   strcpy ( Path, Data->SpoolPath ) ;
  3059.   strcat ( Path, "\\*.*" ) ;
  3060.  
  3061.   Count = 1 ;
  3062.   if ( !DosFindFirst2 ( Path, &hDir,
  3063.     FILE_NORMAL | FILE_READONLY | FILE_DIRECTORY | FILE_ARCHIVED,
  3064.     Found, PathSize+sizeof(FILEFINDBUF), &Count, FIL_STANDARD, 0L ) )
  3065.   {
  3066.     do
  3067.     {
  3068.       if ( !strcmp ( Found->achName, "." )
  3069.     OR !strcmp ( Found->achName, ".." ) )
  3070.       {
  3071.     continue ;
  3072.       }
  3073.  
  3074.       if ( Found->attrFile & FILE_DIRECTORY )
  3075.       {
  3076.     HDIR hDir = HDIR_CREATE ;
  3077.  
  3078.     strcpy ( Path, Data->SpoolPath ) ;
  3079.     strcat ( Path, "\\" ) ;
  3080.     strcat ( Path, Found->achName ) ;
  3081.     strcat ( Path, "\\*.*" ) ;
  3082.  
  3083.     Count = 1 ;
  3084.     if ( !DosFindFirst2 ( Path, &hDir,
  3085.       FILE_NORMAL | FILE_READONLY | FILE_ARCHIVED,
  3086.       Found, PathSize+sizeof(FILEFINDBUF), &Count, FIL_STANDARD, 0L ) )
  3087.     {
  3088.       do
  3089.       {
  3090.         TotalSize += Found->cbFileAlloc ;
  3091.       }
  3092.       while ( !DosFindNext ( hDir, Found, PathSize+sizeof(FILEFINDBUF), &Count ) ) ;
  3093.       DosFindClose ( hDir ) ;
  3094.     }
  3095.     Count = 1 ;
  3096.       }
  3097.       else
  3098.       {
  3099.     TotalSize += Found->cbFileAlloc ;
  3100.       }
  3101.     }
  3102.     while ( !DosFindNext ( hDir, Found, PathSize+sizeof(FILEFINDBUF), &Count ) ) ;
  3103.     DosFindClose ( hDir ) ;
  3104.   }
  3105.  
  3106.   free ( Path ) ;
  3107.   free ( Found ) ;
  3108.  
  3109.   return ( TotalSize ) ;
  3110. }
  3111.  
  3112. /****************************************************************************
  3113.  *                                        *
  3114.  *    Compute CPU Load                                *
  3115.  *                                        *
  3116.  ****************************************************************************/
  3117.  
  3118. static ULONG ComputeCpuLoad ( PDATA Data, USHORT Dummy )
  3119. {
  3120.   static ULONG Max = 1 ;
  3121.  
  3122.   Max = (ULONG) max ( Max, Data->IdleCount ) ;
  3123.  
  3124.   return ( ( ( Max - Data->IdleCount ) * 100 ) / Max ) ;
  3125. }
  3126.  
  3127. /****************************************************************************
  3128.  *                                        *
  3129.  *    Compute Drive Free Space                            *
  3130.  *                                        *
  3131.  ****************************************************************************/
  3132.  
  3133. static ULONG ComputeDriveFree ( PDATA Data, USHORT Drive )
  3134. {
  3135.   FSALLOCATE Allocation ;
  3136.  
  3137.   DosQFSInfo ( Drive, FSIL_ALLOC,
  3138.     (PBYTE)&Allocation, sizeof(Allocation) ) ;
  3139.  
  3140.   return ( Allocation.cUnitAvail*Allocation.cSectorUnit*Allocation.cbSector ) ;
  3141. }
  3142.  
  3143. /****************************************************************************
  3144.  *                                        *
  3145.  *    Idle Counter Thread                            *
  3146.  *                                        *
  3147.  ****************************************************************************/
  3148.  
  3149. static void _far _cdecl IdleLoopThread ( PIDLE_PARMS Parms )
  3150. {
  3151.  /***************************************************************************
  3152.   * Set this thread's priority as low as it can go.                         *
  3153.   ***************************************************************************/
  3154.  
  3155.   DosSetPrty ( PRTYS_THREAD, PRTYC_IDLETIME, PRTYD_MINIMUM, 0 ) ;
  3156.  
  3157.  /***************************************************************************
  3158.   * Count until terminated.                            *
  3159.   ***************************************************************************/
  3160.  
  3161.   while ( 1 )
  3162.   {
  3163.     (*Parms->Counter) ++ ;
  3164.   }
  3165. }
  3166.  
  3167. /****************************************************************************
  3168.  *                                        *
  3169.  *    Monitor Loop Thread                            *
  3170.  *                                        *
  3171.  ****************************************************************************/
  3172.  
  3173. static void _far _cdecl MonitorLoopThread ( PMONITOR_PARMS Parms )
  3174. {
  3175.  /***************************************************************************
  3176.   * Local Declarations                                *
  3177.   ***************************************************************************/
  3178.  
  3179.  
  3180.   ULONG     CurrentCount ;
  3181.   ULONG     CurrentMilliseconds ;
  3182.   ULONG     DeltaMilliseconds ;
  3183.   ULONG     LastCounter = 0L ;
  3184.   ULONG     LastMilliseconds = 0L ;
  3185.   PGINFOSEG pGlobalInfoSeg = NULL ;
  3186.   PLINFOSEG pLocalInfoSeg = NULL ;
  3187.  
  3188.  /***************************************************************************
  3189.   * Set this thread's priority as high as it can go.                        *
  3190.   ***************************************************************************/
  3191.  
  3192.   DosSetPrty ( PRTYS_THREAD, PRTYC_TIMECRITICAL, PRTYD_MAXIMUM, 0 ) ;
  3193.  
  3194.  /***************************************************************************
  3195.   * Get pointer to global information segment, where the time is kept.        *
  3196.   ***************************************************************************/
  3197.  
  3198.   DosGetInfoSeg ( &SELECTOROF(pGlobalInfoSeg), &SELECTOROF(pLocalInfoSeg) ) ;
  3199.  
  3200.  /***************************************************************************
  3201.   * Reset the last time seen.                            *
  3202.   ***************************************************************************/
  3203.  
  3204.   LastMilliseconds = pGlobalInfoSeg->msecs ;
  3205.  
  3206.  /***************************************************************************
  3207.   * Loop forever . . .                                *
  3208.   ***************************************************************************/
  3209.  
  3210.   while ( 1 )
  3211.   {
  3212.    /*************************************************************************
  3213.     * Sleep for a bit.                                *
  3214.     *************************************************************************/
  3215.  
  3216.     DosSleep ( *Parms->Interval ) ;
  3217.  
  3218.    /*************************************************************************
  3219.     * Find out how much time went by.                        *
  3220.     *************************************************************************/
  3221.  
  3222.     CurrentMilliseconds = pGlobalInfoSeg->msecs ;
  3223.     DeltaMilliseconds = CurrentMilliseconds - LastMilliseconds ;
  3224.     LastMilliseconds = CurrentMilliseconds ;
  3225.  
  3226.    /*************************************************************************
  3227.     * Find out how much idle time was counted.    Adjust it to persecond.     *
  3228.     *************************************************************************/
  3229.  
  3230.     CurrentCount = *Parms->Counter - LastCounter ;
  3231.     LastCounter = *Parms->Counter ;
  3232.     CurrentCount = (CurrentCount * 1000) / DeltaMilliseconds ;
  3233.  
  3234.    /*************************************************************************
  3235.     * Tell the owner window to refresh its statistics.                *
  3236.     *************************************************************************/
  3237.  
  3238.     WinPostMsg ( Parms->Owner, WM_REFRESH, MPFROMLONG(CurrentCount), 0L ) ;
  3239.   }
  3240. }
  3241.